debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 10:28:09 +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 ()
(let (output expected)
(mapcar (lambda (test)
(let* ((expect (car test))
(body (cdr test))
(result (attachment-check-test body)))
(push expect expected)
(push (if (eq result expect)
result
;; In the case of a failure, include the test
;; details to make it simpler to debug.
(format "%S <-- %S" result body))
output)))
attachment-check-tests)
(dolist (test attachment-check-tests)
(let* ((expect (car test))
(body (cdr test))
(result (attachment-check-test body)))
(push expect expected)
(push (if (eq result expect)
result
;; In the case of a failure, include the test
;; details to make it simpler to debug.
(format "%S <-- %S" result body))
output)))
(notmuch-test-expect-equal output expected)))