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/dired.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/dired.el')
| -rw-r--r-- | lisp/dired.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index e16df189a76..4e82d57e216 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2196,7 +2196,7 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (defun dired-context-menu (menu) (when (mouse-posn-property (event-start last-input-event) 'dired-filename) - (define-key menu [dired-separator-2] menu-bar-separator) + (define-key menu [dired-separator] menu-bar-separator) (let ((easy-menu (make-sparse-keymap "Immediate"))) (easy-menu-define nil easy-menu nil '("Immediate" @@ -2206,8 +2206,7 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." :help "Edit file at mouse click in other window"])) (dolist (item (reverse (lookup-key easy-menu [menu-bar immediate]))) (when (consp item) - (define-key menu (vector (car item)) (cdr item))))) - (define-key menu [dired-separator-1] menu-bar-separator)) + (define-key menu (vector (car item)) (cdr item)))))) menu) |