Commit a5bdb872 authored by Artur Malabarba's avatar Artur Malabarba

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

Respect `isearch-lax-whitespace' when searching through
`isearch-word'.
parent 7e8f7e08
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment