[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 4c4eba9 19/39: Fix repetition in callback.

From: Thierry Volpiatto
Subject: [elpa] master 4c4eba9 19/39: Fix repetition in callback.
Date: Wed, 18 May 2016 18:02:52 +0000 (UTC)

branch: master
commit 4c4eba9f401e2b5aa05fa9c8efd0615fbbf0b74c
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Fix repetition in callback.
    * dired-async.el (dired-async-create-files): Do it.
 dired-async.el |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index 418f265..4920e78 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -213,9 +213,9 @@ ESC or `q' to not overwrite any of the remaining files,
                (dired-async-after-file-create ,total)
                (when (string= ,(downcase operation) "rename")
                  (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))))))))
+                          for bf = (get-file-buffer file)
+                          do (and bf (with-current-buffer bf
+                                       (set-visited-file-name to nil t))))))))
     ;; Handle error happening in host emacs.
     (cond (failures

reply via email to

[Prev in Thread] Current Thread [Next in Thread]