procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/outline.el (outline--make-button-overlay): Make mouse-1
work on the buttons.
This commit is contained in:
Lars Ingebrigtsen 2021-11-02 03:50:36 +01:00
parent 8cb514f4a2
commit ec60aededd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/outline.el
View file

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