Move point in dired buffers when handling a list of files

* lisp/dired-aux.el (dired-create-files): Advance point to the
current file (bug#8015).
This commit is contained in:
Lars Ingebrigtsen 2021-06-02 10:13:58 +02:00
parent 16793dc35a
commit 7ea7e26ab1

View file

@ -1963,6 +1963,9 @@ or with the current marker character if MARKER-CHAR is t."
(let (to overwrite-query
overwrite-backup-query) ; for dired-handle-overwrite
(dolist (from fn-list)
;; Position point on the current file -- this is useful if
;; handling a number of files to show where we're working at.
(dired-goto-file from)
(setq to (funcall name-constructor from))
(if (equal to from)
(progn