master 7ea7e26: Move point in dired buffers when handling a list of files

[Lars Ingebrigtsen]

branch: master
commit 7ea7e26ab1976b7534f7c573107adfa74defee22
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 a1dda3f..3a721cd 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