diff options
| -rw-r--r-- | lisp/net/browse-url.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 3af37e412d9..50d11b4b725 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -730,7 +730,8 @@ position clicked before acting. This function returns a list (URL NEW-WINDOW-FLAG) for use in `interactive'." (let ((event (elt (this-command-keys) 0))) - (and (listp event) (mouse-set-point event))) + (when (mouse-event-p event) + (mouse-set-point event))) (list (read-string prompt (or (and transient-mark-mode mark-active ;; rfc2396 Appendix E. (replace-regexp-in-string |