From: Matt Armstrong <marmstrong@google.com>
Date: Sun, 14 Aug 2016 22:13:00 +0000 (-0700)
Subject: emacs: implement notmuch-search-color-line with dolist.
X-Git-Tag: 0.23_rc0~41
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=3856286e21ab4ef282bbb262b700477282327923;p=notmuch-old

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

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.
---

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index ecf71980..8e146924 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -695,13 +695,12 @@ background."
 
 (defun notmuch-search-color-line (start end line-tag-list)
   "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 notmuch-search-line-faces)))
+  ;; Reverse the list so earlier entries take precedence
+  (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)
   "Split `authors' into matching and non-matching authors and