From: Juri Linkov <juri@linkov.net>
Date: Sun, 4 Sep 2022 17:02:20 +0000 (+0300)
Subject: Don't replace the first character with an arrow in outline-minor-mode
X-Git-Tag: emacs-29.0.90~1856^2~729
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2dfce43103e5fa098f362bc6d715c3857e9cdc08;p=emacs.git

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).
---

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))