diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-01 00:05:10 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-01 00:05:10 +0100 |
| commit | 96ac51427f01a96d17f597df4b73f5e59794d6e5 (patch) | |
| tree | fcba3efed009b40ac4bcb8c5458be2e569c804d8 /lisp/outline.el | |
| parent | 940b414cfe4a0d299572a80728566c7ef353dd37 (diff) | |
| download | emacs-96ac51427f01a96d17f597df4b73f5e59794d6e5.tar.gz emacs-96ac51427f01a96d17f597df4b73f5e59794d6e5.tar.bz2 emacs-96ac51427f01a96d17f597df4b73f5e59794d6e5.zip | |
Re-fix the new mouse event logic in outline
* lisp/outline.el (outline-show-subtree, outline-hide-subtree):
Really fix the mouse logic.
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 4 |
1 files 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)) |