From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 25 Sep 1998 16:53:04 +0000 (+0000)
Subject: (isearch-search-and-update): Properly
X-Git-Tag: emacs-20.4~1631
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec0a2f45a2c603eac4f598019c6204bdeb9007c6;p=emacs.git

(isearch-search-and-update): Properly
handle upper case letters in the reverse-search special case.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 96287ae0b4b..aef204c02cc 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1032,6 +1032,9 @@ To do that, evaluate these expressions:
     (if (and (not isearch-forward) (not isearch-adjusted)
 	     (condition-case ()
 		 (let ((case-fold-search isearch-case-fold-search))
+		   (if (and (eq case-fold-search t) search-upper-case)
+		       (setq case-fold-search
+			     (isearch-no-upper-case-p isearch-string isearch-regexp)))
 		   (looking-at (if isearch-regexp isearch-string
 				 (regexp-quote isearch-string))))
 	       (error nil))