procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Juri Linkov 2011-09-18 23:28:45 +03:00
parent 46c5cf6650
commit 80302a817e
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

4
lisp/isearch.el
View file

@ -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))