# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809508019 0
# Node ID 0ad88e6d8ef1f7f04290d0231e777c85247a69ed
# Parent  44f42e36b529b3d2f0b1944085e602cbe84a873c
(refer-every): Renamed from every.
(refer-convert-string-to-list-of-strings): Renamed from
convert-string-to-list-of-strings.

diff -r 44f42e36b529 -r 0ad88e6d8ef1 lisp/textmodes/refer.el
--- 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)