aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorArtur Malabarba2015-08-19 11:43:29 +0100
committerArtur Malabarba2015-08-19 11:45:49 +0100
commit7eed7399358faecd719febae4dc720ef2be41155 (patch)
treea1d8917c19ef2a87beed10a31c7676d04ee342e4 /lisp
parent7047d3642fb20955b83c1dfb3d5a70d869072731 (diff)
downloademacs-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.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/character-fold.el2
-rw-r--r--lisp/isearch.el11
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.
29This means some characters will match entire groups of characters. 29This means some characters will match entire groups of characters.
30For instance, \" will match all variants of double quotes, and 30For 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)