pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't replace the first character with an arrow in outline-minor-mode

Browse source 
* lisp/outline.el (outline--make-button-overlay): Add the first character
to the displayed outline button (bug#56820).
This commit is contained in:
Juri Linkov 2022-09-04 20:02:20 +03:00
parent 40cdbf6dc1
commit 2dfce43103
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/outline.el
View file

@ -1005,7 +1005,8 @@ If non-nil, EVENT should be a mouse event."
(put-text-property (point) (1+ (point)) 'face (plist-get icon 'face)))
(when-let ((image (plist-get icon 'image)))
(overlay-put o 'display image))
(overlay-put o 'display (plist-get icon 'string))
(overlay-put o 'display (concat (plist-get icon 'string)
(string (char-after (point)))))
(overlay-put o 'face (plist-get icon 'face)))
o))