* lisp/isearch.el (isearch-abort): Don't quit if search has
an incomplete regexp (isearch-error is non-nil). (Bug#7534)
This commit is contained in:
parent
dc3e3e7b22
commit
d4119912fb
2 changed files with 8 additions and 3 deletions
|
@ -1,3 +1,8 @@
|
|||
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))
|
||||
|
|
Loading…
Add table
Reference in a new issue