From 354c834fba5806ba873b50bf900c42dce5d9da90 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Sat, 20 Nov 2021 15:56:08 +0800 Subject: [PATCH] Fix `browse-url-interactive-arg' for certain kinds of events * lisp/net/browse-url.el (browse-url-interactive-arg): Don't call `mouse-set-point' unless event is actually a mouse event. --- lisp/net/browse-url.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2