(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 96287ae0b4b48b993f21532410788f80c7636752..aef204c02cc6cc3f2e12976cddaace3c7fcdc8f1 100644 (file)
--- 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))