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

Fix new mouse handling in outline

Browse source 
* lisp/outline.el (outline-show-subtree, outline-hide-subtree):
Don't set point if we have no event.
This commit is contained in:
Lars Ingebrigtsen 2021-10-31 23:24:46 +01:00
parent 57030b90d5
commit a21697651e
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/outline.el
View file

@ -944,7 +944,8 @@ Note that this does not hide the lines preceding the first heading line."
"Hide everything after this heading at deeper levels.
If non-nil, EVENT should be a mouse event."
(interactive (list last-nonmenu-event))
(mouse-set-point event)
(when event
(mouse-set-point event))
(when (and outline-minor-mode-use-buttons outline-minor-mode)
(outline--insert-close-button))
(outline-flag-subtree t))
@ -1016,7 +1017,8 @@ If non-nil, EVENT should be a mouse event."
(defun outline-show-subtree (&optional event)
"Show everything after this heading at deeper levels."
(interactive (list last-nonmenu-event))
(mouse-set-point event)
(when event
(mouse-set-point event))
(when (and outline-minor-mode-use-buttons outline-minor-mode)
(outline--insert-open-button))
(outline-flag-subtree nil))