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

2 files changed, 6 insertions, 1 deletions

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]*\\("