From: J.D. Smith <jdsmith@as.arizona.edu>
Date: Mon, 24 Apr 2006 21:57:45 +0000 (+0000)
Subject: (bibtex-find-entry): Don't demand matching case for @Article, etc.
X-Git-Tag: emacs-pretest-22.0.90~2965
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19f0b8b5fe0c59eb0f087cd20b1f423e3b906e31;p=emacs.git

(bibtex-find-entry): Don't demand matching case for @Article, etc.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6181f976fa..78bcc719c4e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-24  J.D. Smith  <jdsmith@as.arizona.edu>
+
+	* textmodes/bibtex.el (bibtex-find-entry): Don't demand matching
+	case for @Article, etc.
+
 2006-04-23  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-register-file-name-handlers): New defun.
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index ff1c1e48eb0..1b5dedec7f8 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -3303,7 +3303,7 @@ Otherwise, use `set-buffer'.  DISPLAY is t when called interactively."
               (display (message "Key `%s' not found" key)))
         found)
 
-    (let* (case-fold-search
+    (let* ((case-fold-search t)
            (pnt (save-excursion
                   (goto-char (or start (point-min)))
                   (if (re-search-forward (concat "^[ \t]*\\("