aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRoland McGrath1993-11-26 22:15:09 +0000
committerRoland McGrath1993-11-26 22:15:09 +0000
commit9bed762ea7fea222285b99d0139aa614ced92dfc (patch)
treefeceb6314a2161b379a65c0275a7f5dde6bc9e2a
parent854f3a54d23485aff14faf2d7c9fc81e335d5d66 (diff)
downloademacs-9bed762ea7fea222285b99d0139aa614ced92dfc.tar.gz
emacs-9bed762ea7fea222285b99d0139aa614ced92dfc.zip
(isearch-search): Use real quit-char extracted from current-input-mode,
rather than always C-g.
-rw-r--r--lisp/isearch.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index c7e84b7f9b0..d4371335084 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 5;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
6 6
7;; |$Date: 1993/10/24 04:05:22 $|$Revision: 1.52 $ 7;; |$Date: 1993/11/24 01:22:40 $|$Revision: 1.53 $
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -1295,7 +1295,7 @@ If there is no completion possible, say so and continue searching."
1295 (setq isearch-other-end 1295 (setq isearch-other-end
1296 (if isearch-forward (match-beginning 0) (match-end 0))))) 1296 (if isearch-forward (match-beginning 0) (match-end 0)))))
1297 1297
1298 (quit (isearch-unread ?\C-g) 1298 (quit (isearch-unread (nth 3 (current-input-mode)))
1299 (setq isearch-success nil)) 1299 (setq isearch-success nil))
1300 1300
1301 (invalid-regexp 1301 (invalid-regexp