branch: master
commit af8933de25fda0be467055eaf83611acfce27c0b
Author: Thierry Volpiatto <thierry.volpia...@gmail.com>
Commit: Thierry Volpiatto <thierry.volpia...@gmail.com>
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)
