master 2dfce43103: Don't replace the first character with an arrow in outline-minor-mode

[Juri Linkov]

branch: master
commit 2dfce43103e5fa098f362bc6d715c3857e9cdc08
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    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 178cbe3071..9a94cad638 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))