diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-24 20:01:10 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-24 23:02:01 +0100 |
| commit | 795c9189165881c84a8ca4570510ab2db0775d07 (patch) | |
| tree | 1050d26de6e0fdc2c359d12369f4b0270da8dcd9 /lisp/replace.el | |
| parent | ce2e5c7f79df609306158a8a43c3a07af364e1df (diff) | |
| download | emacs-795c9189165881c84a8ca4570510ab2db0775d07.tar.gz | |
* lisp/character-fold.el: New file (Bug#20887)
(character-fold-to-regexp): New function.
* lisp/replace.el (replace-search): Check value of
`character-fold-search'.
* lisp/isearch.el: Move character-folding code to
character-fold.el
(isearch-toggle-character-fold): New command.
(isearch-mode-map): Bind it to "\M-sf".
(isearch-mode): Check value of `character-fold-search'.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 5e3ddc551fb..65a2b41f1ea 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -2012,8 +2012,9 @@ It is called with three arguments, as if it were ;; outside of this function because then another I-search ;; used after `recursive-edit' might override them. (let* ((isearch-regexp regexp-flag) - (isearch-word delimited-flag) - (isearch-character-fold-search replace-character-fold) + (isearch-word (or delimited-flag + (and replace-character-fold + #'character-fold-to-regexp))) (isearch-lax-whitespace replace-lax-whitespace) (isearch-regexp-lax-whitespace |