From: Carl Worth <cworth@cworth.org>
Date: Thu, 28 Oct 2010 17:39:52 +0000 (-0700)
Subject: emacs: Use copy-sequence instead of copy-seq.
X-Git-Tag: 0.4~36
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=294b6a67c1461f41ae331e5f7ea3cd07488cb3c2;p=obsolete%2Fnotmuch-old

emacs: Use copy-sequence instead of copy-seq.

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

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 10553271..0e558db8 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -945,7 +945,7 @@ than only the current message."
 (defun notmuch-show-add-tags-worker (current-tags add-tags)
   "Add to `current-tags' with any tags from `add-tags' not
 currently present and return the result."
-  (let ((result-tags (copy-seq current-tags)))
+  (let ((result-tags (copy-sequence current-tags)))
     (mapc (lambda (add-tag)
 	    (unless (member add-tag current-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)
   "Remove any tags in `del-tags' from `current-tags' and return
 the result."
-  (let ((result-tags (copy-seq current-tags)))
+  (let ((result-tags (copy-sequence current-tags)))
     (mapc (lambda (del-tag)
 	    (setq result-tags (delete del-tag result-tags)))
 	  del-tags)