From 6172454ff36a23b903352ef099f15de7d013a3c9 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 23 Feb 2021 21:05:30 +0200 Subject: [PATCH] Small fixes MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/emacs-lisp/seq.el (seq-contains): Move the ‘declare’ form after the docstring. * lisp/misc.el (copy-from-above-command): Fix whitespace regexp. --- lisp/emacs-lisp/seq.el | 2 +- lisp/misc.el | 2 +- 2 files changed, 2 insertions(+), 2 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)) diff --git a/lisp/misc.el b/lisp/misc.el index 09f6011f98d..39ec9497d7f 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -41,7 +41,7 @@ The characters copied are inserted in the buffer before point." (save-excursion (beginning-of-line) (backward-char 1) - (skip-chars-backward "\ \t\n") + (skip-chars-backward " \t\n") (move-to-column cc) ;; Default is enough to copy the whole rest of the line. (setq n (if arg (prefix-numeric-value arg) (point-max))) -- 2.39.2