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/info.el | |
parent | ebac285d0ee567ed86e14b871cf0bac2de8655db (diff) | |
download | emacs-2c2baa9d1231ad9e642e3a80fb1c641fdde71b33.tar.gz |
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/info.el')
-rw-r--r-- | lisp/info.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 14dc299295f..0b3a9e4bf5d 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -4147,7 +4147,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) - (define-key menu [Info-separator-2] menu-bar-separator) + (define-key menu [Info-separator] menu-bar-separator) (let ((easy-menu (make-sparse-keymap "Info"))) (easy-menu-define nil easy-menu nil '("Info" @@ -4163,7 +4163,6 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (define-key menu [Info-mouse-follow-nearest-node] '(menu-item "Follow Link" Info-mouse-follow-nearest-node :help "Follow a link where you click"))) - (define-key menu [Info-separator-1] menu-bar-separator) menu) |