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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14402ae6641fa25b8b6d2a31d82e6378f41b6217..09b50baafa9600ce34bf11736092849722d0a37b 100644 (file)
--- 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 99ad46c88b097cd0ecb6c858d769aa921eb7d5f9..8850273b49171cce0f8bc563a09e6de10ab4c42f 100644 (file)
--- 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)