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.
(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."
(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))))
(mapc (lambda (add-tag)
(unless (member add-tag current-tags)
(setq result-tags (push add-tag result-tags))))
(defun notmuch-show-del-tags-worker (current-tags del-tags)
"Remove any tags in `del-tags' from `current-tags' 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)
(mapc (lambda (del-tag)
(setq result-tags (delete del-tag result-tags)))
del-tags)