about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-04-12 13:16:15 -0500
committerCase Duckworth2022-04-12 13:16:15 -0500
commit9ed685f740eeae6076852e29ef8ea346dac9b373 (patch)
treed63f8be81cf25224373042e05af300b86c4a819a /lisp
parentAdd +crux-kill-and-join-forward (diff)
downloademacs-9ed685f740eeae6076852e29ef8ea346dac9b373.tar.gz
emacs-9ed685f740eeae6076852e29ef8ea346dac9b373.zip
Add +dired-goto-file
This function fixes dumbness in vertico-directory when jumping directories in
dired.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+dired.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/+dired.el b/lisp/+dired.el index 7decec1..131d326 100644 --- a/lisp/+dired.el +++ b/lisp/+dired.el
@@ -2,7 +2,18 @@
2 2
3;;; Code: 3;;; Code:
4 4
5(require 'vertico)
5 6
7(defun +dired-goto-file (file)
8 "ADVICE for `dired-goto-file' to make RET call `vertico-exit'."
9 (interactive ; stolen from `dired-goto-file'
10 (prog1
11 (list (dlet ((vertico-map (copy-keymap vertico-map)))
12 (define-key vertico-map (kbd "RET") #'vertico-exit)
13 (expand-file-name (read-file-name "Goto file: "
14 (dired-current-directory)))))
15 (push-mark)))
16 (dired-goto-file file))
6 17
7(provide '+dired) 18(provide '+dired)
8;;; +dired.el ends here 19;;; +dired.el ends here