diff options
| author | Artur Malabarba | 2015-08-19 11:43:29 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-08-19 11:45:49 +0100 |
| commit | 7eed7399358faecd719febae4dc720ef2be41155 (patch) | |
| tree | a1d8917c19ef2a87beed10a31c7676d04ee342e4 | |
| parent | 7047d3642fb20955b83c1dfb3d5a70d869072731 (diff) | |
| download | emacs-7eed7399358faecd719febae4dc720ef2be41155.tar.gz emacs-7eed7399358faecd719febae4dc720ef2be41155.zip | |
* isearch.el (isearch-search-fun-default): Revert a5bdb87
Remove usage of `isearch-lax-whitespace' inside the `iearch-word'
clause of `isearch-search-fun-default'. That lax variable does not
refer to lax-whitespacing. Related to (bug#21777).
This reverts commit a5bdb872edb9f031fe041faf9a8c0be432e5f64c.
* character-fold.el (character-fold-search): Set to nil
Default to nil for now, until someone implements proper
lax-whitespacing with char-fold searching.
| -rw-r--r-- | lisp/character-fold.el | 2 | ||||
| -rw-r--r-- | lisp/isearch.el | 11 |
2 files changed, 6 insertions, 7 deletions
diff --git a/lisp/character-fold.el b/lisp/character-fold.el index 6bbb3ec87e4..988a5065c0d 100644 --- a/lisp/character-fold.el +++ b/lisp/character-fold.el | |||
| @@ -24,7 +24,7 @@ | |||
| 24 | 24 | ||
| 25 | 25 | ||
| 26 | ;;;###autoload | 26 | ;;;###autoload |
| 27 | (defvar character-fold-search t | 27 | (defvar character-fold-search nil |
| 28 | "Non-nil if searches should fold similar characters. | 28 | "Non-nil if searches should fold similar characters. |
| 29 | This means some characters will match entire groups of characters. | 29 | This means some characters will match entire groups of characters. |
| 30 | For instance, \" will match all variants of double quotes, and | 30 | For instance, \" will match all variants of double quotes, and |
diff --git a/lisp/isearch.el b/lisp/isearch.el index 2d2f0ee2495..8d4bf24c6fb 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -2607,12 +2607,11 @@ Can be changed via `isearch-search-fun-function' for special needs." | |||
| 2607 | ;; Use lax versions to not fail at the end of the word while | 2607 | ;; Use lax versions to not fail at the end of the word while |
| 2608 | ;; the user adds and removes characters in the search string | 2608 | ;; the user adds and removes characters in the search string |
| 2609 | ;; (or when using nonincremental word isearch) | 2609 | ;; (or when using nonincremental word isearch) |
| 2610 | (let ((lax (or isearch-lax-whitespace | 2610 | (let ((lax (not (or isearch-nonincremental |
| 2611 | (not (or isearch-nonincremental | 2611 | (null (car isearch-cmds)) |
| 2612 | (null (car isearch-cmds)) | 2612 | (eq (length isearch-string) |
| 2613 | (eq (length isearch-string) | 2613 | (length (isearch--state-string |
| 2614 | (length (isearch--state-string | 2614 | (car isearch-cmds)))))))) |
| 2615 | (car isearch-cmds))))))))) | ||
| 2616 | (funcall | 2615 | (funcall |
| 2617 | (if isearch-forward #'re-search-forward #'re-search-backward) | 2616 | (if isearch-forward #'re-search-forward #'re-search-backward) |
| 2618 | (if (functionp isearch-word) | 2617 | (if (functionp isearch-word) |