diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-04-05 14:24:00 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-04-05 14:24:00 +0200 |
commit | 20f7fa691b7c2859b96550d9ccb326bf394e160d (patch) | |
tree | b340d48c7c0fc151884470b656ed148d0ffc5d3b /lisp/gnus/gnus-cite.el | |
parent | 257caab1d0bea17fb9bfb5a9e2c782cf96a7d052 (diff) | |
download | emacs-20f7fa691b7c2859b96550d9ccb326bf394e160d.tar.gz |
Obsolete local set difference functions in favor of seq-difference
* lisp/emacs-lisp/seq.el (seq-difference): Add autoload cookie.
* lisp/gnus/gnus-range.el (gnus-set-difference):
* lisp/gnus/spam.el (spam-set-difference): Make obsolete in favor
of seq-difference. Update callers.
Diffstat (limited to 'lisp/gnus/gnus-cite.el')
-rw-r--r-- | lisp/gnus/gnus-cite.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el index 1f564f192b0..4249b50b9ff 100644 --- a/lisp/gnus/gnus-cite.el +++ b/lisp/gnus/gnus-cite.el @@ -839,7 +839,7 @@ See also the documentation for `gnus-article-highlight-citation'." (setq current (car loop) loop (cdr loop)) (setcdr current - (gnus-set-difference (cdr current) numbers))))))))) + (seq-difference (cdr current) numbers #'eq))))))))) (defun gnus-cite-parse-attributions () (let (al-alist) @@ -999,7 +999,7 @@ See also the documentation for `gnus-article-highlight-citation'." loop (cdr loop)) (if (eq current best) () - (setcdr current (gnus-set-difference (cdr current) numbers)) + (setcdr current (seq-difference (cdr current) numbers #'eq)) (when (null (cdr current)) (setq gnus-cite-loose-prefix-alist (delq current gnus-cite-loose-prefix-alist) |