From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 2 Nov 2021 02:50:36 +0000 (+0100)
Subject: Fix mouse-1 on `C-h b' buttons
X-Git-Tag: emacs-29.0.90~3671^2~292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec60aededdee0074ae35fc862cdd7ef8a689d757;p=emacs.git

Fix mouse-1 on `C-h b' buttons

* lisp/outline.el (outline--make-button-overlay): Make mouse-1
work on the buttons.
---

diff --git a/lisp/outline.el b/lisp/outline.el
index 8dffca756fc..1ff0a5a34e5 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -971,6 +971,8 @@ If non-nil, EVENT should be a mouse event."
                      (overlays-at (point)))))
     (unless o
       (setq o (make-overlay (point) (1+ (point))))
+      (overlay-put o 'follow-link 'mouse-face)
+      (overlay-put o 'mouse-face 'highlight)
       (overlay-put o 'outline-button t))
     (overlay-put o 'display (outline--make-button type))
     o))
@@ -984,7 +986,6 @@ If non-nil, EVENT should be a mouse event."
                    (define-keymap
                      :parent outline-minor-mode-cycle-map
                      ["RET"] #'outline-hide-subtree
-                     ["<follow-link>"] 'mouse-face
                      ["<mouse-2>"] #'outline-hide-subtree)))))
 
 (defun outline--insert-close-button ()
@@ -996,7 +997,6 @@ If non-nil, EVENT should be a mouse event."
                    (define-keymap
                      :parent outline-minor-mode-cycle-map
                      ["RET"] #'outline-show-subtree
-                     ["<follow-link>"] 'mouse-face
                      ["<mouse-2>"] #'outline-show-subtree)))))
 
 (defun outline--fix-up-all-buttons ()