Preserve current isearch case-fold value in `isearch-edit-string'.

* lisp/isearch.el (isearch-edit-string): Bind `isearch-new-case-fold'
to `isearch-case-fold-search' and restore its original value
after the `isearch-mode' call.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8e9faa3a2b..e32fe1505b6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2011-09-18  Juri Linkov  <juri@jurta.org>
 
+        * isearch.el (isearch-edit-string): Bind `isearch-new-case-fold'
+        to `isearch-case-fold-search' and restore its original value
+        after the `isearch-mode' call.
+
+2011-09-18  Juri Linkov  <juri@jurta.org>
+
         * progmodes/grep.el (grep-process-setup): Don't check code for 1
         because `zgrep' returns 1 for successful matches (bug#9226).
 
diff --git a/lisp/isearch.el b/lisp/isearch.el
index e07f1429119..81e0b4bf3b7 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1110,6 +1110,7 @@ The following additional command keys are active while editing.
               (isearch-new-message isearch-message)
               (isearch-new-forward isearch-forward)
               (isearch-new-word isearch-word)
+              (isearch-new-case-fold isearch-case-fold-search)
 
               (isearch-regexp isearch-regexp)
               (isearch-op-fun isearch-op-fun)
@@ -1203,7 +1204,8 @@ The following additional command keys are active while editing.
             (setq isearch-string isearch-new-string
                   isearch-message isearch-new-message
                   isearch-forward isearch-new-forward
-                  isearch-word isearch-new-word))
+                  isearch-word isearch-new-word
+                  isearch-case-fold-search isearch-new-case-fold))
 
           ;; Empty isearch-string means use default.
           (when (= 0 (length isearch-string))