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 a1dda3f5a20350a30bbdbea5a591c6c6eab64c96..3a721cd4d9d28c18bf7ce9eaa5dd5238984f6cf5 100644 (file)
--- 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