Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
925a67ca
Commit
925a67ca
authored
Mar 18, 1995
by
Richard M. Stallman
Browse files
(isearch-abort): Treat "incomplete regexp"
as failure when deciding how much to discard for C-g.
parent
95626e11
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
3 deletions
+5
-3
lisp/isearch.el
lisp/isearch.el
+5
-3
No files found.
lisp/isearch.el
View file @
925a67ca
...
...
@@ -4,7 +4,7 @@
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; |$Date: 1995/0
1
/1
1 02:24:0
9 $|$Revision: 1.8
3
$
;; |$Date: 1995/0
3
/1
6 23:31:3
9 $|$Revision: 1.8
4
$
;; This file is part of GNU Emacs.
...
...
@@ -800,8 +800,10 @@ Use `isearch-exit' to quit without signalling."
(setq isearch-success nil)
(isearch-done t) ; exit isearch
(signal 'quit nil)) ; and pass on quit signal
;; If search is failing, rub out until it is once more successful.
(while (not isearch-success) (isearch-pop-state))
;; If search is failing, or has an incomplete regexp,
;; rub out until it is once more successful.
(while (or (not isearch-success) isearch-invalid-regexp)
(isearch-pop-state))
(isearch-update)))
(defun isearch-repeat (direction)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment