[elpa] master af8933d 20/39: Unquote all callbacks.

[Thierry Volpiatto]

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

    Unquote all callbacks.
    
    * async-bytecomp.el (async-byte-recompile-directory): Do it.
    * dired-async.el (dired-async-create-files):          Do it.
    * smtpmail-async.el (async-smtpmail-send-it):         Do it.
---
 async-bytecomp.el |   42 +++++++++++++++++++++---------------------
 dired-async.el    |    8 ++++----
 smtpmail-async.el |    4 ++--
 3 files changed, 27 insertions(+), 27 deletions(-)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index 0e452b1..2c96da0 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -65,27 +65,27 @@ All *.elc files are systematically deleted before 
proceeding."
   ;; This happen when recompiling its own directory.
   (load "async")
   (let ((call-back
-         `(lambda (&optional ignore)
-            (if (file-exists-p async-byte-compile-log-file)
-                (let ((buf (get-buffer-create byte-compile-log-buffer))
-                      (n 0))
-                  (with-current-buffer buf
-                    (goto-char (point-max))
-                    (let ((inhibit-read-only t))
-                      (insert-file-contents async-byte-compile-log-file)
-                      (compilation-mode))
-                    (display-buffer buf)
-                    (delete-file async-byte-compile-log-file)
-                    (unless ,quiet
-                      (save-excursion
-                        (goto-char (point-min))
-                        (while (re-search-forward "^.*:Error:" nil t)
-                          (cl-incf n)))
-                      (if (> n 0)
-                          (message "Failed to compile %d files in directory 
`%s'" n ,directory)
-                          (message "Directory `%s' compiled asynchronously 
with warnings" ,directory)))))
-                (unless ,quiet
-                  (message "Directory `%s' compiled asynchronously with 
success" ,directory))))))
+         (lambda (&optional _ignore)
+           (if (file-exists-p async-byte-compile-log-file)
+               (let ((buf (get-buffer-create byte-compile-log-buffer))
+                     (n 0))
+                 (with-current-buffer buf
+                   (goto-char (point-max))
+                   (let ((inhibit-read-only t))
+                     (insert-file-contents async-byte-compile-log-file)
+                     (compilation-mode))
+                   (display-buffer buf)
+                   (delete-file async-byte-compile-log-file)
+                   (unless quiet
+                     (save-excursion
+                       (goto-char (point-min))
+                       (while (re-search-forward "^.*:Error:" nil t)
+                         (cl-incf n)))
+                     (if (> n 0)
+                         (message "Failed to compile %d files in directory 
`%s'" n directory)
+                         (message "Directory `%s' compiled asynchronously with 
warnings" directory)))))
+               (unless quiet
+                 (message "Directory `%s' compiled asynchronously with 
success" directory))))))
     (async-start
      `(lambda ()
         (require 'bytecomp)
diff --git a/dired-async.el b/dired-async.el
index 4920e78..2da733a 100644
--- 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))))))))
diff --git a/smtpmail-async.el b/smtpmail-async.el
index 0a65a98..6fcf287 100644
--- a/smtpmail-async.el
+++ b/smtpmail-async.el
@@ -65,8 +65,8 @@ It is called just before calling `smtpmail-send-it'.")
             nil 
"\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
           (run-hooks 'async-smtpmail-before-send-hook)
           (smtpmail-send-it)))
-     `(lambda (&optional ignore)
-        (message "Delivering message to %s...done" ,to)))))
+     (lambda (&optional _ignore)
+       (message "Delivering message to %s...done" to)))))
 
 (provide 'smtpmail-async)