diff options
| author | Juri Linkov <juri@linkov.net> | 2022-09-04 20:02:20 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-09-04 20:02:20 +0300 |
| commit | 2dfce43103e5fa098f362bc6d715c3857e9cdc08 (patch) | |
| tree | b54b5d3fa20ef36393a5b1ab74232fae9b670204 /lisp/outline.el | |
| parent | 40cdbf6dc133214c34da40cd7cc097dc39c05c3f (diff) | |
| download | emacs-2dfce43103e5fa098f362bc6d715c3857e9cdc08.tar.gz emacs-2dfce43103e5fa098f362bc6d715c3857e9cdc08.tar.bz2 emacs-2dfce43103e5fa098f362bc6d715c3857e9cdc08.zip | |
Don't replace the first character with an arrow in outline-minor-mode
* lisp/outline.el (outline--make-button-overlay): Add the first character
to the displayed outline button (bug#56820).
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 178cbe30715..9a94cad6385 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -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)) |