diff options
| author | Juri Linkov <juri@linkov.net> | 2021-09-12 20:11:52 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-09-12 20:11:52 +0300 |
| commit | 4877ddeaf739af3a683d8686d1e2fa5e51960623 (patch) | |
| tree | 15e4c0b5a50a7c38170a57c3fd2d59020b6bb08d /lisp/net/goto-addr.el | |
| parent | ff4de1bd88b8be4a7071884910ff601eb10fbad5 (diff) | |
| download | emacs-4877ddeaf739af3a683d8686d1e2fa5e51960623.tar.gz emacs-4877ddeaf739af3a683d8686d1e2fa5e51960623.tar.bz2 emacs-4877ddeaf739af3a683d8686d1e2fa5e51960623.zip | |
* lisp/mouse.el (context-menu-map): Add 'click' arg to called funs (bug#50256)
(context-menu-toolbar, context-menu-global, context-menu-local)
(context-menu-minor, context-menu-buffers, context-menu-vc)
(context-menu-undo, context-menu-region, context-menu-ffap): Add 'click' arg.
* lisp/dired.el (dired-context-menu):
* lisp/help-mode.el (help-mode-context-menu):
* lisp/info.el (Info-context-menu):
* lisp/net/eww.el (eww-context-menu):
* lisp/net/goto-addr.el (goto-address-context-menu):
* lisp/progmodes/prog-mode.el (prog-context-menu): Add 'click' arg.
Diffstat (limited to 'lisp/net/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 2c43d0f7532..97230f42fe8 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -124,8 +124,8 @@ will have no effect.") m) "Keymap to hold goto-addr's mouse key defs under highlighted URLs.") -(defun goto-address-context-menu (menu) - (when (mouse-posn-property (event-start last-input-event) 'goto-address) +(defun goto-address-context-menu (menu click) + (when (mouse-posn-property (event-start click) 'goto-address) (define-key menu [goto-address-separator] menu-bar-separator) (define-key menu [goto-address-at-mouse] '(menu-item "Follow Link" goto-address-at-mouse |