From ec0a2f45a2c603eac4f598019c6204bdeb9007c6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 25 Sep 1998 16:53:04 +0000 Subject: [PATCH] (isearch-search-and-update): Properly handle upper case letters in the reverse-search special case. --- lisp/isearch.el | 3 +++ 1 file changed, 3 insertions(+) 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)) -- 2.39.2