[Emacs-diffs] master a5bdb87: * isearch.el (isearch-search-fun-default): (Bug#21164)

[Artur Malabarba]

branch: master
commit a5bdb872edb9f031fe041faf9a8c0be432e5f64c
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * isearch.el (isearch-search-fun-default): (Bug#21164)
    
    Respect `isearch-lax-whitespace' when searching through
    `isearch-word'.
---
 lisp/isearch.el |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 8d4bf24..2d2f0ee 100644
--- 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)