* isearch.el (isearch-search-fun-default): (Bug#21164)

Respect `isearch-lax-whitespace' when searching through `isearch-word'.

* isearch.el (isearch-search-fun-default): (Bug#21164)
Respect `isearch-lax-whitespace' when searching through `isearch-word'.
a5bdb872 · Artur Malabarba · 7e8f7e08 · a5bdb872
Commit a5bdb872 authored Aug 09, 2015 by Artur Malabarba
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 5 deletions

lisp/isearch.el lisp/isearch.el +6 -5

No files found.
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2607,11 +2607,12 @@ Can be changed via `isearch-search-fun-function' for special needs."
      ;; Use lax versions to not fail at the end of the word while
      ;; the user adds and removes characters in the search string
      ;; (or when using nonincremental word isearch)
-      (let ((lax (not (or isearch-nonincremental
-			  (null (car isearch-cmds))
-			  (eq (length isearch-string)
-			      (length (isearch--state-string
-                                       (car isearch-cmds))))))))
+      (let ((lax (or isearch-lax-whitespace
+                     (not (or isearch-nonincremental
+                              (null (car isearch-cmds))
+                              (eq (length isearch-string)
+                                  (length (isearch--state-string
+                                           (car isearch-cmds)))))))))
 	(funcall
 	 (if isearch-forward #'re-search-forward #'re-search-backward)
 	 (if (functionp isearch-word)