diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-22 14:23:26 -0500 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-01-20 14:17:16 +0200 |
| commit | f08dfa9b532648457590262c1afa9729e87c6bb1 (patch) | |
| tree | bea0c3989baf6168c0c928f630404a7b92dc9cf6 /lisp/net/browse-url.el | |
| parent | 11ea45c9e47d13e13e3e539551e2df300f995c11 (diff) | |
| download | emacs-f08dfa9b532648457590262c1afa9729e87c6bb1.tar.gz emacs-f08dfa9b532648457590262c1afa9729e87c6bb1.tar.bz2 emacs-f08dfa9b532648457590262c1afa9729e87c6bb1.zip | |
Fix menu-bar mouse clicks in "C-h c" and "C-h k" (bug#53322)
* lisp/subr.el (event-start, event-end): Handle '(menu-bar)'
events.
* lisp/net/browse-url.el (browse-url-interactive-arg): Simplify
accordingly.
(cherry picked from commit 9ceb3070e34ad8a54184fd0deda477bf5ff77000)
Diffstat (limited to 'lisp/net/browse-url.el')
| -rw-r--r-- | lisp/net/browse-url.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 5f7140fac4f..3aafbea7c37 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -730,8 +730,7 @@ position clicked before acting. This function returns a list (URL NEW-WINDOW-FLAG) for use in `interactive'." (let ((event (elt (this-command-keys) 0))) - (when (mouse-event-p event) - (mouse-set-point event))) + (mouse-set-point event)) (list (read-string prompt (or (and transient-mark-mode mark-active ;; rfc2396 Appendix E. (replace-regexp-in-string |