Commit d4119912 authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/isearch.el (isearch-abort): Don't quit if search has

an incomplete regexp (isearch-error is non-nil).  (Bug#7534)
parent dc3e3e7b
2011-01-16 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-abort): Don't quit if search has
an incomplete regexp (isearch-error is non-nil). (Bug#7534)
2011-01-15 Mark Diekhans <markd@soe.ucsc.edu>
 
* files.el (backup-buffer): Make last-resort backup file in
......
......@@ -1244,9 +1244,9 @@ Use `isearch-exit' to quit without signaling."
(interactive)
;; (ding) signal instead below, if quitting
(discard-input)
(if isearch-success
;; If search is successful, move back to starting point
;; and really do quit.
(if (and isearch-success (not isearch-error))
;; If search is successful and has no incomplete regexp,
;; move back to starting point and really do quit.
(progn
(setq isearch-success nil)
(isearch-cancel))
......
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