Mercurial > emacs
changeset 12952:0ad88e6d8ef1
(refer-every): Renamed from every.
(refer-convert-string-to-list-of-strings): Renamed from
convert-string-to-list-of-strings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 Aug 1995 07:20:19 +0000 |
| parents | 44f42e36b529 |
| children | e0db27f18a43 |
| files | lisp/textmodes/refer.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/refer.el Sat Aug 26 21:02:01 1995 +0000 +++ b/lisp/textmodes/refer.el Sun Aug 27 07:20:19 1995 +0000 @@ -122,7 +122,7 @@ (refer-find-entry-internal refer-previous-keywords t)) (defun refer-find-entry-internal (keywords continue) - (let ((keywords-list (convert-string-to-list-of-strings keywords)) + (let ((keywords-list (refer-convert-string-to-list-of-strings keywords)) (files (if continue refer-saved-state (refer-get-bib-files)))) @@ -154,10 +154,10 @@ (forward-paragraph 1) (setq end (point)) (setq found - (every (function (lambda (keyword) - (goto-char begin) - (re-search-forward keyword end t))) - keywords-list)) + (refer-every (function (lambda (keyword) + (goto-char begin) + (re-search-forward keyword end t))) + keywords-list)) (if (not found) (progn (setq begin end) @@ -169,13 +169,13 @@ (progn (message "Scanning %s... not found" file) nil)))) -(defun every (pred l) +(defun refer-every (pred l) (cond ((null l) nil) ((funcall pred (car l)) (or (null (cdr l)) - (every pred (cdr l)))))) + (refer-every pred (cdr l)))))) -(defun convert-string-to-list-of-strings (s) +(defun refer-convert-string-to-list-of-strings (s) (let ((current (current-buffer)) (temp-buffer (get-buffer-create "*refer-temp*"))) (set-buffer temp-buffer)