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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8e9faa..e32fe15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/lisp/isearch.el b/lisp/isearch.el
index e07f142..81e0b4b 100644 (file)
--- 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))