diff options
| author | Juri Linkov <juri@linkov.net> | 2021-07-27 23:48:07 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-07-27 23:48:07 +0300 |
| commit | 2c2baa9d1231ad9e642e3a80fb1c641fdde71b33 (patch) | |
| tree | 6333d695b3eadef58cf8bd62e5768e3a65bd6409 /lisp/net | |
| parent | ebac285d0ee567ed86e14b871cf0bac2de8655db (diff) | |
| download | emacs-2c2baa9d1231ad9e642e3a80fb1c641fdde71b33.tar.gz emacs-2c2baa9d1231ad9e642e3a80fb1c641fdde71b33.tar.bz2 emacs-2c2baa9d1231ad9e642e3a80fb1c641fdde71b33.zip | |
Add new context-menu options for menus "File At Point" and "Version Control".
* lisp/mouse.el (context-menu-functions): Add more options.
(context-menu-global, context-menu-local): Fix separators.
(context-menu-minor): Rewrite to support list of submenus.
(context-menu-vc, context-menu-ffap): New functions.
(context-menu-undo, context-menu-region): Fix separators.
* lisp/dired.el (dired-context-menu):
* lisp/info.el (Info-context-menu):
* lisp/net/goto-addr.el (goto-address-context-menu):
* lisp/net/eww.el (eww-context-menu):
* lisp/progmodes/prog-mode.el (prog-context-menu): Fix separators.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/eww.el | 3 | ||||
| -rw-r--r-- | lisp/net/goto-addr.el | 5 |
2 files changed, 3 insertions, 5 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index b8761029864..5c46ccfe001 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -1022,7 +1022,7 @@ the like." map)) (defun eww-context-menu (menu) - (define-key menu [eww-separator-2] menu-bar-separator) + (define-key menu [eww-separator] menu-bar-separator) (let ((easy-menu (make-sparse-keymap "Eww"))) (easy-menu-define nil easy-menu nil '("Eww" @@ -1047,7 +1047,6 @@ the like." 'shr-mouse-browse-url-new-window 'shr-mouse-browse-url) :help "Browse the URL under the mouse cursor"))) - (define-key menu [eww-separator-1] menu-bar-separator) menu) diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index c270cf53cbf..2c43d0f7532 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -126,11 +126,10 @@ will have no effect.") (defun goto-address-context-menu (menu) (when (mouse-posn-property (event-start last-input-event) 'goto-address) - (define-key menu [goto-address-separator-2] menu-bar-separator) + (define-key menu [goto-address-separator] menu-bar-separator) (define-key menu [goto-address-at-mouse] '(menu-item "Follow Link" goto-address-at-mouse - :help "Follow a link where you click")) - (define-key menu [goto-address-separator-1] menu-bar-separator)) + :help "Follow a link where you click"))) menu) (defcustom goto-address-url-face 'link |