diff options
author | Andrea Corallo <akrl@sdf.org> | 2021-04-05 21:00:18 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2021-04-05 21:00:18 +0200 |
commit | 74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73 (patch) | |
tree | b1e99508f836a1d12d17eb3072e14b0cfb2ba407 /lisp/emacs-lisp/seq.el | |
parent | 0a3e715e1f5e13874139b4678375b8f5704b800b (diff) | |
parent | 14d295871a93c37a33d558ec4e8d49a93b787d8e (diff) | |
download | emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.tar.gz emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.tar.bz2 emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.zip |
Merge remote-tracking branch 'savannah/master' into native-comp
Diffstat (limited to 'lisp/emacs-lisp/seq.el')
-rw-r--r-- | lisp/emacs-lisp/seq.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 2b8807faad5..6c15463ad52 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -147,6 +147,7 @@ the sequence, and its index within the sequence." "Return a shallow copy of SEQUENCE." (copy-sequence sequence)) +;;;###autoload (cl-defgeneric seq-subseq (sequence start &optional end) "Return the sequence of elements of SEQUENCE from START to END. END is exclusive. @@ -430,6 +431,7 @@ Equality is defined by TESTFN if non-nil or by `equal' if nil." (setq index (1+ index))) nil))) +;;;###autoload (cl-defgeneric seq-uniq (sequence &optional testfn) "Return a list of the elements of SEQUENCE with duplicates removed. TESTFN is used to compare elements, or `equal' if TESTFN is nil." @@ -467,6 +469,7 @@ Equality is defined by TESTFN if non-nil or by `equal' if nil." (seq-reverse sequence1) '())) +;;;###autoload (cl-defgeneric seq-difference (sequence1 sequence2 &optional testfn) "Return a list of the elements that appear in SEQUENCE1 but not in SEQUENCE2. Equality is defined by TESTFN if non-nil or by `equal' if nil." |