From 4772df3f2a921e2a902e04d263f90107f5d2f6f7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 10 May 2025 12:05:17 -0400 Subject: [PATCH] lisp/net/browse-url.el (browse-url-interactive-arg): Fix bug#78026 Don't burp when run from a timer where (this-command-keys) will usually return an empty vector. (cherry picked from commit 66990628b8f91554e05aa2bee9a657149ac0037c) --- lisp/net/browse-url.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 02d25b0ade4..21fad0dd50c 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -712,8 +712,7 @@ This function returns a list (URL NEW-WINDOW-FLAG) for use in `interactive'. NEW-WINDOW-FLAG is the prefix arg; if `browse-url-new-window-flag' is non-nil, invert the prefix arg instead." - (let ((event (elt (this-command-keys) 0))) - (mouse-set-point event)) + (mouse-set-point last-nonmenu-event) (list (read-string prompt (or (and transient-mark-mode mark-active ;; rfc2396 Appendix E. (replace-regexp-in-string -- 2.39.5