Unquote all callbacks.

[gnu-emacs-elpa] / dired-async.el

diff --git a/dired-async.el b/dired-async.el
index 4920e78824a0b01cbc0fc738ec887e9ca6c8abcf..2da733abcd1924cb2d98e4600286bab777197032 100644 (file)
--- a/dired-async.el
+++ b/dired-async.el
@@ -209,10 +209,10 @@ ESC or `q' to not overwrite any of the remaining files,
                                    operation from to)))
                   (push (cons from to) async-fn-list)))))
       (setq callback
-            `(lambda (&optional ignore)
-               (dired-async-after-file-create ,total)
-               (when (string= ,(downcase operation) "rename")
-                 (cl-loop for (file . to) in ',async-fn-list
+            (lambda (&optional _ignore)
+               (dired-async-after-file-create total)
+               (when (string= (downcase operation) "rename")
+                 (cl-loop for (file . to) in async-fn-list
                           for bf = (get-file-buffer file)
                           do (and bf (with-current-buffer bf
                                        (set-visited-file-name to nil t))))))))