andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor cleanup in dired-x-bind-find-file

Browse source 
* lisp/dired-x.el (dired-x-bind-find-file): Use 'format-message'
and 'keymap-set'.
This commit is contained in:
Stefan Kangas 2022-06-27 16:08:10 +02:00
parent 4d41bb7847
commit f9d35afea3
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/dired-x.el
View file

@ -1515,12 +1515,13 @@ Binding direction based on `dired-x-hands-off-my-keys'."
(interactive)
(if (called-interactively-p 'interactive)
(setq dired-x-hands-off-my-keys
(not (y-or-n-p "Bind dired-x-find-file over find-file? "))))
(not (y-or-n-p (format-message
"Bind `dired-x-find-file' over `find-file'?")))))
(unless dired-x-hands-off-my-keys
(define-key (current-global-map) [remap find-file]
'dired-x-find-file)
(define-key (current-global-map) [remap find-file-other-window]
'dired-x-find-file-other-window)))
(keymap-set (current-global-map) "<remap> <find-file>"
#'dired-x-find-file)
(keymap-set (current-global-map) "<remap> <find-file-other-window>"
#'dired-x-find-file-other-window)))
;; Now call it so binding is correct. This could go in the :initialize
;; slot, but then dired-x-bind-find-file has to be defined before the