[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 354c834: Fix `browse-url-interactive-arg' for certain kinds of
From: |
Po Lu |
Subject: |
emacs-28 354c834: Fix `browse-url-interactive-arg' for certain kinds of events |
Date: |
Sat, 20 Nov 2021 02:58:14 -0500 (EST) |
branch: emacs-28
commit 354c834fba5806ba873b50bf900c42dce5d9da90
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
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 3af37e4..50d11b4 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 354c834: Fix `browse-url-interactive-arg' for certain kinds of events,
Po Lu <=