mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-31 01:32:00 -07:00
Code Issues Projects Releases Wiki Activity

hideshow: Support new 'margin' face for margin indicators. (Bug#80693)

Browse source 
* lisp/progmodes/hideshow.el (hs-indicator-hide): Remove 'default' face.
(hs--make-indicators-overlays): Rework.
This commit is contained in:
Elias Gabriel Perez 2026-05-10 10:14:21 -06:00 • committed by Juri Linkov
parent 20d17df3f4
commit 3630baae72
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/progmodes/hideshow.el
View file

@ -299,7 +299,7 @@ use that face for the ellipsis instead."
:version "31.1")
(defface hs-indicator-hide
'((t :inherit (shadow default)))
'((t :inherit shadow))
"Face used in hideshow indicator to indicate a hidden block."
:version "31.1")
@ -1094,14 +1094,16 @@ the overlay: `invisible' `hs'. Also, depending on variable
`(left-fringe ,fringe-type ,face-or-icon)))
;; Margins
('margin
(propertize
"+" 'display
`((margin left-margin)
,(or (plist-get (icon-elements face-or-icon) 'image)
(propertize (icon-string face-or-icon)
'keymap hs-indicators-map)))
'face face-or-icon
'keymap hs-indicators-map))
(let* ((icon-elements (icon-elements face-or-icon)))
(propertize
"+" 'display
`((margin left-margin)
,(or (plist-get icon-elements 'image)
(propertize (plist-get icon-elements 'string)
'face `(,face-or-icon margin)
'keymap hs-indicators-map)))
'face `(,face-or-icon margin)
'keymap hs-indicators-map)))
;; EOL string
('nil
(concat