(find-function-search-for-symbol): Bind case-fold-search when searching.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14402ae6641..09b50baafa9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-04  Markus Rost  <rost@math.ohio-state.edu>
+
+        * emacs-lisp/find-func.el (find-function-search-for-symbol): Bind
+        case-fold-search when searching.
+
 2002-05-04  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * apropos.el (apropos-print): Fix the reference to mouse-2.
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 99ad46c88b0..8850273b491 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -139,7 +139,8 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise
                                   find-variable-regexp
                                 find-function-regexp)
                               (regexp-quote (symbol-name symbol))))
-              (syn-table (syntax-table)))
+              (syn-table (syntax-table))
+              (case-fold-search))
           (unwind-protect
               (progn
                 (set-syntax-table emacs-lisp-mode-syntax-table)