From 90b43e32083610ca89da89efab9cfbc9f85b960e Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 11 Oct 2025 21:37:52 +0300 Subject: [PATCH] * lisp/progmodes/hideshow.el: Small improvements (bug#79585). (hs-allow-nesting): Turn defvar into defcustom. (hs-indicator-hide): Use BLACK DOWN-POINTING SMALL TRIANGLE as a counterpart for the BLACK RIGHT-POINTING SMALL TRIANGLE. --- lisp/progmodes/hideshow.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index 07d7236c9b4..d01f855a7f8 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -338,7 +338,7 @@ size." :face hs-indicator-hide :height (0.6 . em) :ascent center) - (symbol "🞃" "▼" :face hs-indicator-hide) + (symbol "▾" "▼" :face hs-indicator-hide) (text "-" :face hs-indicator-hide)) "Icon used for hide block at point. This is only used if `hs-indicator-type' is set to `margin' or nil." @@ -413,10 +413,12 @@ whitespace. Case does not matter.") (defvar hs-hide-all-non-comment-function nil "Function called if non-nil when doing `hs-hide-all' for non-comments.") -(defvar hs-allow-nesting nil +(defcustom hs-allow-nesting nil "If non-nil, hiding remembers internal blocks. This means that when the outer block is shown again, -any previously hidden internal blocks remain hidden.") +any previously hidden internal blocks remain hidden." + :type 'boolean + :version "31.1") (defvar hs-hide-hook nil "Hook called (with `run-hooks') at the end of commands to hide text.