# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002273860 0
# Node ID 8f03c11f64eff31b9f3bcceefc91c8f7ea8f9c5b
# Parent  c1fb5574fc7a09044684914e2cabd3dbeb10b38e
(isearch-last-case-fold-search): New variable.
(isearch-mode): Remember value of isearch-case-fold-search
in isearch-last-case-fold-search.
(isearch-done): Quote value of isearch-case-fold-search.
(isearch-repeat): When resuming a search, restore
isearch-case-fold-search from isearch-last-case-fold-search.

diff -r c1fb5574fc7a -r 8f03c11f64ef lisp/isearch.el
--- a/lisp/isearch.el	Fri Oct 05 09:23:32 2001 +0000
+++ b/lisp/isearch.el	Fri Oct 05 09:24:20 2001 +0000
@@ -366,6 +366,8 @@
 ;   case in the search string is ignored.
 (defvar isearch-case-fold-search nil)
 
+(defvar isearch-last-case-fold-search nil)
+
 ;; Used to save default value while isearch is active
 (defvar isearch-original-minibuffer-message-timeout nil)
 
@@ -530,6 +532,7 @@
 	isearch-regexp regexp
 	isearch-word word-p
 	isearch-op-fun op-fun
+	isearch-last-case-fold-search isearch-case-fold-search
 	isearch-case-fold-search case-fold-search
 	isearch-string ""
 	isearch-message ""
@@ -645,7 +648,7 @@
   (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
 				  ,isearch-word ,isearch-forward
 				  ,isearch-message
-				  ,isearch-case-fold-search)))
+				  ',isearch-case-fold-search)))
     (unless (equal (car command-history) command)
       (setq command-history (cons command command-history))))
 
@@ -949,7 +952,8 @@
 		    "")
 		isearch-message
 		(mapconcat 'isearch-text-char-description
-			   isearch-string ""))
+			   isearch-string "")
+		isearch-case-fold-search isearch-last-case-fold-search)
 	;; If already have what to search for, repeat it.
 	(or isearch-success
 	    (progn