summaryrefslogtreecommitdiff
path: root/lisp/isearch.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2013-02-02 01:38:41 +0200
committerJuri Linkov <juri@jurta.org>2013-02-02 01:38:41 +0200
commitdc2bc29527d65f54704570c991e023cbb0723544 (patch)
tree2096e5aab561b99ed282243946041ba2fa9d9174 /lisp/isearch.el
parentf864e0ea838f8f5e1a27b2ac612d0072c1606507 (diff)
downloademacs-dc2bc29527d65f54704570c991e023cbb0723544.tar.gz
* lisp/replace.el (perform-replace): Move let-bindings of isearch-*
variables deeper to the loop that searches for the next match. Add bindings for `isearch-nonincremental' and `isearch-adjusted'. Use `isearch-search-fun-default' instead of `isearch-search-fun'. * lisp/isearch.el (isearch-search-fun-default): Check for null first element of isearch-cmds as a precaution when it's used with inactive isearch. Fixes: debbugs:13579
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r--lisp/isearch.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index e8bcf7679ae..972fb0058d3 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2495,6 +2495,7 @@ Can be changed via `isearch-search-fun-function' for special needs."
;; 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))))))))