emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 96ac514 2/2: Re-fix the new mouse event logic in outline


From: Lars Ingebrigtsen
Subject: master 96ac514 2/2: Re-fix the new mouse event logic in outline
Date: Sun, 31 Oct 2021 19:05:20 -0400 (EDT)

branch: master
commit 96ac51427f01a96d17f597df4b73f5e59794d6e5
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Re-fix the new mouse event logic in outline
    
    * lisp/outline.el (outline-show-subtree, outline-hide-subtree):
    Really fix the mouse logic.
---
 lisp/outline.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/outline.el b/lisp/outline.el
index 12f6381..9058293 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -944,7 +944,7 @@ 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))
-  (when event
+  (when (mouse-event-p event)
     (mouse-set-point event))
   (when (and outline-minor-mode-use-buttons outline-minor-mode)
     (outline--insert-close-button))
@@ -1019,7 +1019,7 @@ 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))
-  (when event
+  (when (mouse-event-p event)
     (mouse-set-point event))
   (when (and outline-minor-mode-use-buttons outline-minor-mode)
     (outline--insert-open-button))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]