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: Use copy-sequence instead of copy-seq.

Browse source 
I don't see copy-seq documented within emacs at all, and some users
have encountered failures of the form:

notmuch-show-del-tags-worker: Symbol's function definition is void: copy-seq

This should eliminate that problem.
This commit is contained in:
Carl Worth 2010-10-28 10:39:52 -07:00
parent 5331161749
commit 294b6a67c1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-show.el
View file

@ -945,7 +945,7 @@ than only the current message."
(defun notmuch-show-add-tags-worker (current-tags add-tags) (defun notmuch-show-add-tags-worker (current-tags add-tags)
"Add to `current-tags' with any tags from `add-tags' not "Add to `current-tags' with any tags from `add-tags' not
currently present and return the result." currently present and return the result."
(let ((result-tags (copy-seq current-tags))) (let ((result-tags (copy-sequence current-tags)))
(mapc (lambda (add-tag) (mapc (lambda (add-tag)
(unless (member add-tag current-tags) (unless (member add-tag current-tags)
(setq result-tags (push add-tag result-tags)))) (setq result-tags (push add-tag result-tags))))
@ -955,7 +955,7 @@ currently present and return the result."
(defun notmuch-show-del-tags-worker (current-tags del-tags) (defun notmuch-show-del-tags-worker (current-tags del-tags)
"Remove any tags in `del-tags' from `current-tags' and return "Remove any tags in `del-tags' from `current-tags' and return
the result." the result."
(let ((result-tags (copy-seq current-tags))) (let ((result-tags (copy-sequence current-tags)))
(mapc (lambda (del-tag) (mapc (lambda (del-tag)
(setq result-tags (delete del-tag result-tags))) (setq result-tags (delete del-tag result-tags)))
del-tags) del-tags)