procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make refer-every into obsolete alias for seq-every-p

Browse source 
* lisp/textmodes/refer.el (refer-every): Make into obsolete
function alias for seq-every-p.  Update single caller.
This commit is contained in:
Stefan Kangas 2021-04-09 18:42:14 +02:00
parent 512ec97bcf
commit 40db60563c
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/textmodes/refer.el
View file

@ -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