From 96ac51427f01a96d17f597df4b73f5e59794d6e5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 1 Nov 2021 00:05:10 +0100 Subject: [PATCH] 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 12f63811398..9058293e277 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)) -- 2.39.5