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

Fix dired-goto-subdir prompt

Browse source 
* lisp/dired-aux.el (dired-goto-subdir): Fix prompt and improve
docstring.  Add interactive mode tag for dired-mode.
This commit is contained in:
Stefan Kangas 2022-07-03 15:16:23 +02:00
parent d5c6f22193
commit e41ba8ab89
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/dired-aux.el
View file

@ -3023,18 +3023,20 @@ When called interactively and not on a subdir line, go to this subdir's line."
;;;###autoload
(defun dired-goto-subdir (dir)
"Go to end of header line of DIR in this dired buffer.
"Go to end of header line of inserted directory DIR in this Dired buffer.
When called interactively, prompt for the inserted subdirectory
to go to.
Return value of point on success, otherwise return nil.
The next char is \\n."
(interactive
(prog1 ; let push-mark display its message
(list (expand-file-name
(completing-read "Goto in situ directory: " ; prompt
dired-subdir-alist ; table
nil ; predicate
t ; require-match
(dired-current-directory))))
(push-mark)))
(completing-read "Goto inserted directory: "
dired-subdir-alist nil t
(dired-current-directory))))
(push-mark))
dired-mode)
(setq dir (file-name-as-directory dir))
(let ((elt (assoc dir dired-subdir-alist)))
(and elt