martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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))