debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Use dolist' instead of mapcar' for side-effects

Browse source 
As recommended by the byte-compiler.
This commit is contained in:
Jonas Bernoulli 2020-04-25 22:18:09 +02:00 committed by David Bremner
parent 6cdf4b7e38
commit 291ef68ede
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test/emacs-attachment-warnings.el
View file

@ -67,16 +67,15 @@ Return `t' if the message would be sent, otherwise `nil'"
(defun notmuch-test-attachment-warning-1 () (defun notmuch-test-attachment-warning-1 ()
(let (output expected) (let (output expected)
(mapcar (lambda (test) (dolist (test attachment-check-tests)
(let* ((expect (car test)) (let* ((expect (car test))
(body (cdr test)) (body (cdr test))
(result (attachment-check-test body))) (result (attachment-check-test body)))
(push expect expected) (push expect expected)
(push (if (eq result expect) (push (if (eq result expect)
result result
;; In the case of a failure, include the test ;; In the case of a failure, include the test
;; details to make it simpler to debug. ;; details to make it simpler to debug.
(format "%S <-- %S" result body)) (format "%S <-- %S" result body))
output))) output)))
attachment-check-tests)
(notmuch-test-expect-equal output expected))) (notmuch-test-expect-equal output expected)))