aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2025-10-11 21:37:52 +0300
committerJuri Linkov2025-10-11 21:37:52 +0300
commit90b43e32083610ca89da89efab9cfbc9f85b960e (patch)
tree6280d0531e878a9a582966ac2b79c6cd584cb46c
parent2acd9702de4f6a3c4915549ade6fca7bbac4ca6c (diff)
downloademacs-90b43e32083610ca89da89efab9cfbc9f85b960e.tar.gz
emacs-90b43e32083610ca89da89efab9cfbc9f85b960e.zip
* 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.
-rw-r--r--lisp/progmodes/hideshow.el8
1 files 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."
338 :face hs-indicator-hide 338 :face hs-indicator-hide
339 :height (0.6 . em) 339 :height (0.6 . em)
340 :ascent center) 340 :ascent center)
341 (symbol "🞃" "▼" :face hs-indicator-hide) 341 (symbol "▾" "▼" :face hs-indicator-hide)
342 (text "-" :face hs-indicator-hide)) 342 (text "-" :face hs-indicator-hide))
343 "Icon used for hide block at point. 343 "Icon used for hide block at point.
344This is only used if `hs-indicator-type' is set to `margin' or nil." 344This is only used if `hs-indicator-type' is set to `margin' or nil."
@@ -413,10 +413,12 @@ whitespace. Case does not matter.")
413(defvar hs-hide-all-non-comment-function nil 413(defvar hs-hide-all-non-comment-function nil
414 "Function called if non-nil when doing `hs-hide-all' for non-comments.") 414 "Function called if non-nil when doing `hs-hide-all' for non-comments.")
415 415
416(defvar hs-allow-nesting nil 416(defcustom hs-allow-nesting nil
417 "If non-nil, hiding remembers internal blocks. 417 "If non-nil, hiding remembers internal blocks.
418This means that when the outer block is shown again, 418This means that when the outer block is shown again,
419any previously hidden internal blocks remain hidden.") 419any previously hidden internal blocks remain hidden."
420 :type 'boolean
421 :version "31.1")
420 422
421(defvar hs-hide-hook nil 423(defvar hs-hide-hook nil
422 "Hook called (with `run-hooks') at the end of commands to hide text. 424 "Hook called (with `run-hooks') at the end of commands to hide text.