[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6172454: Small fixes
From: |
Juri Linkov |
Subject: |
master 6172454: Small fixes |
Date: |
Tue, 23 Feb 2021 14:05:48 -0500 (EST) |
branch: master
commit 6172454ff36a23b903352ef099f15de7d013a3c9
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
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.
---
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 55ce6d9..adfce95 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 09f6011..39ec949 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6172454: Small fixes,
Juri Linkov <=