[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))