From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 2 Jun 2021 08:13:58 +0000 (+0200)
Subject: Move point in dired buffers when handling a list of files
X-Git-Tag: emacs-28.0.90~2222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ea7e26ab1976b7534f7c573107adfa74defee22;p=emacs.git

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).
---

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