procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add some sanity checks to dired-x.el key bindings

Browse source 
* lisp/dired-x.el: Ensure that prefix keys haven't be rebound to
commands before adding keystrokes (bug#25190).
This commit is contained in:
Lars Ingebrigtsen 2019-10-09 09:38:11 +02:00
parent a6dfd9145f
commit 3d0d2d1a19
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/dired-x.el
View file

@ -230,24 +230,27 @@ to nil: a pipe using `zcat' or `gunzip -c' will be used."
:group 'dired-x)
;;; KEY BINDINGS.
(when (keymapp (lookup-key dired-mode-map "*"))
(define-key dired-mode-map "*(" 'dired-mark-sexp)
(define-key dired-mode-map "*O" 'dired-mark-omitted)
(define-key dired-mode-map "*." 'dired-mark-extension))
(when (keymapp (lookup-key dired-mode-map "%"))
(define-key dired-mode-map "%Y" 'dired-do-relsymlink-regexp))
(define-key dired-mode-map "\C-x\M-o" 'dired-omit-mode)
(define-key dired-mode-map "*O" 'dired-mark-omitted)
(define-key dired-mode-map "\M-(" 'dired-mark-sexp)
(define-key dired-mode-map "*(" 'dired-mark-sexp)
(define-key dired-mode-map "*." 'dired-mark-extension)
(define-key dired-mode-map "\M-!" 'dired-smart-shell-command)
(define-key dired-mode-map "\M-G" 'dired-goto-subdir)
(define-key dired-mode-map "F" 'dired-do-find-marked-files)
(define-key dired-mode-map "Y" 'dired-do-relsymlink)
(define-key dired-mode-map "%Y" 'dired-do-relsymlink-regexp)
(define-key dired-mode-map "V" 'dired-do-run-mail)
;;; MENU BINDINGS
(require 'easymenu)
(let ((menu (lookup-key dired-mode-map [menu-bar])))
(when-let ((menu (lookup-key dired-mode-map [menu-bar])))
(easy-menu-add-item menu '("Operate")
["Find Files" dired-do-find-marked-files
:help "Find current or marked files"]