diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-22 14:23:26 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-22 14:23:42 -0500 |
| commit | 9ceb3070e34ad8a54184fd0deda477bf5ff77000 (patch) | |
| tree | c6005d2acc2426bff0bc0d4e2451ec3bad22b388 /lisp/net | |
| parent | 44923722f42c2974c140e385c4c765f60944efe7 (diff) | |
| download | emacs-9ceb3070e34ad8a54184fd0deda477bf5ff77000.tar.gz emacs-9ceb3070e34ad8a54184fd0deda477bf5ff77000.tar.bz2 emacs-9ceb3070e34ad8a54184fd0deda477bf5ff77000.zip | |
* lisp/subr.el (event-start, event-end): Handle `(menu-bar)` events
* lisp/net/browse-url.el (browse-url-interactive-arg): Simplify accordingly
Diffstat (limited to 'lisp/net')
| -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 19afb813317..011e43c447b 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -737,8 +737,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 |