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/goto-addr.el | |
| 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/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 5 |
1 files changed, 2 insertions, 3 deletions
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 |