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/progmodes/prog-mode.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/progmodes/prog-mode.el')
| -rw-r--r-- | lisp/progmodes/prog-mode.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el index a10291a9c7d..a8b608b018a 100644 --- a/lisp/progmodes/prog-mode.el +++ b/lisp/progmodes/prog-mode.el @@ -45,22 +45,20 @@ (defun prog-context-menu (menu) (when (featurep 'xref) - (define-key-after menu [prog-separator-1] menu-bar-separator - 'separator-region-2) + (define-key-after menu [prog-separator] menu-bar-separator + 'mark-whole-buffer) (define-key-after menu [xref-find-def] '(menu-item "Find Definition" xref-find-definitions-at-mouse :visible (save-excursion (mouse-set-point last-input-event) (xref-backend-identifier-at-point (xref-find-backend))) :help "Find definition of function or variable") - 'prog-separator-1) + 'prog-separator) (define-key-after menu [xref-pop] '(menu-item "Back Definition" xref-pop-marker-stack :visible (not (xref-marker-stack-empty-p)) :help "Back to the position of the last search") - 'xref-find-def) - (define-key-after menu [prog-separator-2] menu-bar-separator - 'xref-pop)) + 'xref-find-def)) menu) (defvar prog-mode-map |