From 4c4eba9f401e2b5aa05fa9c8efd0615fbbf0b74c Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Fri, 29 Apr 2016 17:03:30 +0200 Subject: [PATCH] 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 418f265e9..4920e7882 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 (dired-log-summary -- 2.39.2