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/eww.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/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 90301e92acf..62f19925f62 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -1021,7 +1021,7 @@ the like." ["Toggle Paragraph Direction" eww-toggle-paragraph-direction])) map)) -(defun eww-context-menu (menu) +(defun eww-context-menu (menu click) (define-key menu [eww-separator] menu-bar-separator) (let ((easy-menu (make-sparse-keymap "Eww"))) (easy-menu-define nil easy-menu nil @@ -1035,8 +1035,8 @@ the like." (when (consp item) (define-key menu (vector (car item)) (cdr item))))) - (when (or (mouse-posn-property (event-start last-input-event) 'shr-url) - (mouse-posn-property (event-start last-input-event) 'image-url)) + (when (or (mouse-posn-property (event-start click) 'shr-url) + (mouse-posn-property (event-start click) 'image-url)) (define-key menu [shr-mouse-browse-url-new-window] `(menu-item "Follow URL in new window" ,(if browse-url-new-window-flag 'shr-mouse-browse-url |