From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 31 Oct 2021 22:24:46 +0000 (+0100)
Subject: Fix new mouse handling in outline
X-Git-Tag: emacs-29.0.90~3671^2~320
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a21697651e9c59bcb8c3a66010b2c9906f276fc3;p=emacs.git

Fix new mouse handling in outline

* lisp/outline.el (outline-show-subtree, outline-hide-subtree):
Don't set point if we have no event.
---

diff --git a/lisp/outline.el b/lisp/outline.el
index a7f54364f05..6a2738a7f84 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -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))