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

emacs: implement notmuch-search-color-line with dolist.

Browse source 
While passing a lambda to mapc is idiomatic elisp, dolist is easier
to understand, and there are a few other calls to it in this file.
This commit is contained in:
Matt Armstrong 2016-08-14 15:13:00 -07:00 committed by David Bremner
parent 7b7960ea22
commit 3856286e21
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/notmuch.el
View file

@ -695,13 +695,12 @@ background."
(defun notmuch-search-color-line (start end line-tag-list) (defun notmuch-search-color-line (start end line-tag-list)
"Colorize lines in `notmuch-show' based on tags." "Colorize lines in `notmuch-show' based on tags."
(mapc (lambda (elem)
(let ((tag (car elem))
(attributes (cdr elem)))
(when (member tag line-tag-list)
(notmuch-apply-face nil attributes nil start end))))
;; Reverse the list so earlier entries take precedence ;; Reverse the list so earlier entries take precedence
(reverse notmuch-search-line-faces))) (dolist (elem (reverse notmuch-search-line-faces))
(let ((tag (car elem))
(face (cdr elem)))
(when (member tag line-tag-list)
(notmuch-apply-face nil face nil start end)))))
(defun notmuch-search-author-propertize (authors) (defun notmuch-search-author-propertize (authors)
"Split `authors' into matching and non-matching authors and "Split `authors' into matching and non-matching authors and