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/info.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/info.el')
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index c09c75ad484..b861fff744c 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -4151,7 +4151,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'." "---" ["Exit" quit-window :help "Stop reading Info"])) -(defun Info-context-menu (menu) +(defun Info-context-menu (menu click) (define-key menu [Info-separator] menu-bar-separator) (let ((easy-menu (make-sparse-keymap "Info"))) (easy-menu-define nil easy-menu nil @@ -4164,7 +4164,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (when (consp item) (define-key menu (vector (car item)) (cdr item))))) - (when (mouse-posn-property (event-start last-input-event) 'mouse-face) + (when (mouse-posn-property (event-start click) 'mouse-face) (define-key menu [Info-mouse-follow-nearest-node] '(menu-item "Follow Link" Info-mouse-follow-nearest-node :help "Follow a link where you click"))) |