From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 8 May 1997 06:02:42 +0000 (+0000)
Subject: (assoc-ignore-case): Function deleted.
X-Git-Tag: emacs-20.1~2245
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43a8874daccd44a825f5527844642b674bb9d051;p=emacs.git

(assoc-ignore-case): Function deleted.
(bibtex-member-of-regexp): Renamed from member-of-regexp.
Call changed.
---

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index f41f48951fe..d55321142ad 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -782,19 +782,7 @@ See the documentation of function bibtex-generate-autokey for further detail.")
 
 ;; Helper Functions
 
-(defun assoc-ignore-case (string alist)
-  ;; Return non-nil if STRING is `equal' to the car of an element of
-  ;; LIST. Comparison is done with case ignored. The value is actually
-  ;; the element of LIST whose car is `equal' to STRING.
-  (or (assoc string alist)
-      (while (and alist
-		  (not (string-equal
-                        (downcase string)
-                        (downcase (car (car alist))))))
-	(setq alist (cdr alist)))
-      (car alist)))
-
-(defun member-of-regexp (string list)
+(defun bibtex-member-of-regexp (string list)
   ;; Return non-nil if STRING is exactly matched by an element of
   ;; LIST. This function is influenced by the actual value of
   ;; `case-fold-search'. The value is actually the tail of LIST whose
@@ -1230,7 +1218,7 @@ The generation algorithm works as follows:
                           (< counter bibtex-autokey-titlewords))
                          (if (and
                               first
-                              (member-of-regexp
+                              (bibtex-member-of-regexp
                                titleword
                                bibtex-autokey-titleword-first-ignore))
                              (setq counter -1)