[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ec60aed: Fix mouse-1 on `C-h b' buttons
From: |
Lars Ingebrigtsen |
Subject: |
master ec60aed: Fix mouse-1 on `C-h b' buttons |
Date: |
Mon, 1 Nov 2021 22:50:46 -0400 (EDT) |
branch: master
commit ec60aededdee0074ae35fc862cdd7ef8a689d757
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 8dffca7..1ff0a5a 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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ec60aed: Fix mouse-1 on `C-h b' buttons,
Lars Ingebrigtsen <=