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 @@
 ;;; Code:
+(require 'vertico)
+(defun +dired-goto-file (file)
+  "ADVICE for `dired-goto-file' to make RET call `vertico-exit'."
+  (interactive                          ; stolen from `dired-goto-file'
+   (prog1
+       (list (dlet ((vertico-map (copy-keymap vertico-map)))
+               (define-key vertico-map (kbd "RET") #'vertico-exit)
+               (expand-file-name (read-file-name "Goto file: "
+                                                 (dired-current-directory)))))
+     (push-mark)))
+  (dired-goto-file file))
 (provide '+dired)
 ;;; +dired.el ends here

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