# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 906742384 0
# Node ID 102eb438b2e1534bd84824519eb551a219823342
# Parent  4f85050ca43cc259c6c75ffdfa25c6e1d9d2353f
(isearch-search-and-update): Properly
handle upper case letters in the reverse-search special case.

diff -r 4f85050ca43c -r 102eb438b2e1 lisp/isearch.el
--- 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))