diff options
| author | Juri Linkov <juri@linkov.net> | 2021-02-23 21:05:30 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-02-23 21:05:30 +0200 |
| commit | 6172454ff36a23b903352ef099f15de7d013a3c9 (patch) | |
| tree | 42b026d86ba6aed87d758c14a29e1af67641ddbc /lisp/emacs-lisp | |
| parent | 29c0b640ba7bd076345d654fc5c393062eab83af (diff) | |
| download | emacs-6172454ff36a23b903352ef099f15de7d013a3c9.tar.gz emacs-6172454ff36a23b903352ef099f15de7d013a3c9.tar.bz2 emacs-6172454ff36a23b903352ef099f15de7d013a3c9.zip | |
Small fixes
* lisp/emacs-lisp/seq.el (seq-contains): Move the ‘declare’ form
after the docstring.
* lisp/misc.el (copy-from-above-command): Fix whitespace regexp.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 55ce6d9426d..adfce950176 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -393,9 +393,9 @@ found or not." count)) (cl-defgeneric seq-contains (sequence elt &optional testfn) - (declare (obsolete seq-contains-p "27.1")) "Return the first element in SEQUENCE that is equal to ELT. Equality is defined by TESTFN if non-nil or by `equal' if nil." + (declare (obsolete seq-contains-p "27.1")) (seq-some (lambda (e) (when (funcall (or testfn #'equal) elt e) e)) |