[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 40db605: Make refer-every into obsolete alias for seq-every-p
From: |
Stefan Kangas |
Subject: |
master 40db605: Make refer-every into obsolete alias for seq-every-p |
Date: |
Fri, 9 Apr 2021 12:42:21 -0400 (EDT) |
branch: master
commit 40db60563c6b259e1208b6931f0a343849026814
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Make refer-every into obsolete alias for seq-every-p
* lisp/textmodes/refer.el (refer-every): Make into obsolete
function alias for seq-every-p. Update single caller.
---
lisp/textmodes/refer.el | 16 ++++++----------
1 file changed, 6 insertions(+), 10 deletions(-)
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 53519ac..e710180 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -245,10 +245,10 @@ found on the last `refer-find-entry' or
`refer-find-next-entry'."
(forward-paragraph 1)
(setq end (point))
(setq found
- (refer-every (lambda (keyword)
- (goto-char begin)
- (re-search-forward keyword end t))
- keywords-list))
+ (seq-every-p (lambda (keyword)
+ (goto-char begin)
+ (re-search-forward keyword end t))
+ keywords-list))
(if (not found)
(progn
(setq begin end)
@@ -260,12 +260,6 @@ found on the last `refer-find-entry' or
`refer-find-next-entry'."
(progn (message "Scanning %s... not found" file)
nil))))
-(defun refer-every (pred l)
- (cond ((null l) nil)
- ((funcall pred (car l))
- (or (null (cdr l))
- (refer-every pred (cdr l))))))
-
(defun refer-convert-string-to-list-of-strings (s)
(let ((current (current-buffer))
(temp-buffer (get-buffer-create "*refer-temp*")))
@@ -391,4 +385,6 @@ found on the last `refer-find-entry' or
`refer-find-next-entry'."
(setq refer-bib-files files))
files))
+(define-obsolete-function-alias 'refer-every #'seq-every-p "28.1")
+
;;; refer.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 40db605: Make refer-every into obsolete alias for seq-every-p,
Stefan Kangas <=