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

notmuch.el: Use let to avoid assigning to a free variable.

Browse source 
The dynamic scoping of emacs lisp is such that we never want to assign
to any variable unless it's something we've defined with `defvar' or
else something we're using locally via `let'.
This commit is contained in:
Carl Worth 2009-11-30 23:14:11 -08:00
parent a708ea627e
commit 7a63942577
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
notmuch.el
View file

@ -1081,8 +1081,7 @@ Complete list of currently available key bindings:
(if (not notmuch-tag-face-alist) (if (not notmuch-tag-face-alist)
(add-to-list 'notmuch-search-font-lock-keywords (list (add-to-list 'notmuch-search-font-lock-keywords (list
"(\\([^)]*\\))$" '(1 'notmuch-tag-face))) "(\\([^)]*\\))$" '(1 'notmuch-tag-face)))
(progn (let ((notmuch-search-tags (mapcar 'car notmuch-tag-face-alist)))
(setq notmuch-search-tags (mapcar 'car notmuch-tag-face-alist))
(loop for notmuch-search-tag in notmuch-search-tags (loop for notmuch-search-tag in notmuch-search-tags
do (add-to-list 'notmuch-search-font-lock-keywords (list do (add-to-list 'notmuch-search-font-lock-keywords (list
(concat "([^)]*\\(" notmuch-search-tag "\\)[^)]*)$") (concat "([^)]*\\(" notmuch-search-tag "\\)[^)]*)$")