diff options
| author | Juri Linkov | 2025-10-11 21:37:52 +0300 |
|---|---|---|
| committer | Juri Linkov | 2025-10-11 21:37:52 +0300 |
| commit | 90b43e32083610ca89da89efab9cfbc9f85b960e (patch) | |
| tree | 6280d0531e878a9a582966ac2b79c6cd584cb46c | |
| parent | 2acd9702de4f6a3c4915549ade6fca7bbac4ca6c (diff) | |
| download | emacs-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.el | 8 |
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. |
| 344 | This is only used if `hs-indicator-type' is set to `margin' or nil." | 344 | This 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. |
| 418 | This means that when the outer block is shown again, | 418 | This means that when the outer block is shown again, |
| 419 | any previously hidden internal blocks remain hidden.") | 419 | any 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. |