From 80302a817e470464590b79cda28aefaa36edadf6 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 18 Sep 2011 23:28:45 +0300 Subject: [PATCH] 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. --- lisp/ChangeLog | 6 ++++++ lisp/isearch.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8e9faa3a2b..e32fe1505b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-09-18 Juri Linkov + + * 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 * progmodes/grep.el (grep-process-setup): Don't check code for 1 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)) -- 2.39.5