changeset 23318:102eb438b2e1

(isearch-search-and-update): Properly handle upper case letters in the reverse-search special case.
author Karl Heuer <kwzh@gnu.org>
date Fri, 25 Sep 1998 16:53:04 +0000
parents 4f85050ca43c
children 6d8f2c66943f
files lisp/isearch.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Fri Sep 25 16:51:32 1998 +0000
+++ b/lisp/isearch.el	Fri Sep 25 16:53:04 1998 +0000
@@ -1032,6 +1032,9 @@
     (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))