From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Sat, 4 May 2002 15:42:34 +0000 (+0000)
Subject: (find-function-search-for-symbol): Bind case-fold-search when searching.
X-Git-Tag: ttn-vms-21-2-B4~15191
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77186c628063f166d05d9b7878791def2dd20ffd;p=emacs.git

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

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)