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 178cbe30715f7ac83c18e18a2dfc82f0205d436a..9a94cad638518849b1c5df5fd4bf7228f4b6b1fa 100644 (file)
--- 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))