diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2011-12-17 10:47:48 -0500 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2011-12-21 07:27:38 -0400 |
commit | e3260d025389c2e98dbda58cff1c214497813bc2 (patch) | |
tree | c8cbead70665bb7142230c969f5b4d01eed2e785 /emacs/notmuch.el | |
parent | 4a2a271878ad31992f3121362d7e2dd12da2bf7a (diff) |
Don't quote lambda forms
This generates byte-compiler warnings on (at least) current trunk
versions of Emacs. The quote is not necessary; lambda forms are
self-quoting.
Diffstat (limited to 'emacs/notmuch.el')
-rw-r--r-- | emacs/notmuch.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 982b7d3f..270f9833 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -662,16 +662,16 @@ foreground and blue background." ;; Create the overlay only if the message has tags which match one ;; of those specified in `notmuch-search-line-faces'. (let (overlay) - (mapc '(lambda (elem) - (let ((tag (car elem)) - (attributes (cdr elem))) - (when (member tag line-tag-list) - (when (not overlay) - (setq overlay (make-overlay start end))) - ;; Merge the specified properties with any already - ;; applied from an earlier match. - (overlay-put overlay 'face - (append (overlay-get overlay 'face) attributes))))) + (mapc (lambda (elem) + (let ((tag (car elem)) + (attributes (cdr elem))) + (when (member tag line-tag-list) + (when (not overlay) + (setq overlay (make-overlay start end))) + ;; Merge the specified properties with any already + ;; applied from an earlier match. + (overlay-put overlay 'face + (append (overlay-get overlay 'face) attributes))))) notmuch-search-line-faces))) (defun notmuch-search-author-propertize (authors) |