Rename buffers after renaming (#56).

diff --git a/dired-async.el b/dired-async.el
index c007751dcc1b70b16fb4f002d6765896720a60f2..6827b0f8a9f235a893fc34cce2b11ccfa26bb2da 100644 (file)
--- a/dired-async.el
+++ b/dired-async.el
@@ -151,10 +151,10 @@ Should take same args as `message'."
 
 See `dired-create-files' for the behavior of arguments."
   (setq dired-async-operation nil)
-  (let (dired-create-files-failures failures async-fn-list
-                                    skipped (success-count 0) (total (length fn-list))
-                                    (callback `(lambda (&optional ignore)
-                                                 (dired-async-after-file-create ,(length fn-list)))))
+  (let (dired-create-files-failures
+        failures async-fn-list
+        skipped (success-count 0) (total (length fn-list))
+        callback)
     (let (to overwrite-query
              overwrite-backup-query)    ; for dired-handle-overwrite
       (dolist (from fn-list)
@@ -215,7 +215,14 @@ ESC or `q' to not overwrite any of the remaining files,
                         (push (dired-make-relative from) failures)
                         (dired-log "%s `%s' to `%s' failed"
                                    operation from to)))
-                  (push (cons from to) async-fn-list))))))
+                  (push (cons from to) async-fn-list)))))
+      (setq callback
+            `(lambda (&optional ignore)
+               (dired-async-after-file-create ,(length fn-list))
+               (cl-loop for (file . to) in ',async-fn-list
+                 do (and (get-file-buffer file)
+                         (with-current-buffer (get-file-buffer file)
+                           (set-visited-file-name to nil t)))))))
     ;; Handle error happening in host emacs.
     (cond
       (dired-create-files-failures