From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 27 Aug 1995 07:20:19 +0000 (+0000)
Subject: (refer-every): Renamed from every.
X-Git-Tag: emacs-19.34~2908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1f20cec38b42ee5c8c2aef19a6cb41c840f9b1a;p=emacs.git

(refer-every): Renamed from every.
(refer-convert-string-to-list-of-strings): Renamed from
convert-string-to-list-of-strings.
---

diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 7524630055e..7409660fcc1 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -122,7 +122,7 @@ entry by continuing search from previous point."
    (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 @@ entry by continuing search from previous point."
          (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 @@ entry by continuing search from previous point."
           (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)