From 7ea7e26ab1976b7534f7c573107adfa74defee22 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 2 Jun 2021 10:13:58 +0200 Subject: [PATCH] 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). --- lisp/dired-aux.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index a1dda3f5a20..3a721cd4d9d 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -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 -- 2.39.2