mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(assoc-ignore-case): Function deleted.

Browse source 
(bibtex-member-of-regexp): Renamed from member-of-regexp.
Call changed.
This commit is contained in:
Richard M. Stallman 1997-05-08 06:02:42 +00:00
parent d925fb392a
commit 43a8874dac
1 changed files with 2 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/textmodes/bibtex.el
View file

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