From 2dfce43103e5fa098f362bc6d715c3857e9cdc08 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 4 Sep 2022 20:02:20 +0300 Subject: [PATCH] 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). --- lisp/outline.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.2