From ec60aededdee0074ae35fc862cdd7ef8a689d757 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 2 Nov 2021 03:50:36 +0100
Subject: [PATCH] Fix mouse-1 on `C-h b' buttons
* lisp/outline.el (outline--make-button-overlay): Make mouse-1
work on the buttons.
---
lisp/outline.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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 ()
--
2.39.5