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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6181f976fa9602ee0bb0a725cec8ddd92d8476e..78bcc719c4ee1d2bd88d7da9c556f2f53968cf21 100644 (file)
--- 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 ff1c1e48eb0a481bdaa17085f2ab11d100b08ac6..1b5dedec7f86184d1e9895aa0ba811377f84a9c8 100644 (file)
--- 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]*\\("