Mercurial > emacs

changeset 10117:413a1fd0f7c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-cancel): New function. (isearch-mode-map): Bind that to ESC ESC ESC.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 Dec 1994 19:34:52 +0000
parents a8cdb7630b1c
children 7e22057e9516
files lisp/isearch.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Mon Dec 05 13:38:11 1994 +0000
+++ b/lisp/isearch.el	Mon Dec 05 19:34:52 1994 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1994/11/15 16:56:44 $|$Revision: 1.77 $
+;; |$Date: 94/11/15 19:41:36 $|$Revision: 1.78 $
 
 ;; This file is part of GNU Emacs.
 
@@ -209,6 +209,8 @@
       (define-key map "\C-r" 'isearch-repeat-backward)
       (define-key map "\177" 'isearch-delete-char)
       (define-key map "\C-g" 'isearch-abort)
+      (define-key map "\e\e\e" 'isearch-cancel)
+      (define-key map  [escape escape escape] 'isearch-cancel)
     
       (define-key map "\C-q" 'isearch-quote-char)
 
@@ -773,6 +775,12 @@
   (setq isearch-new-forward nil)
   (exit-minibuffer))
 
+(defun isearch-cancel ()
+  "Terminate the search and go back to the starting point."
+  (interactive)
+  (goto-char isearch-opoint)
+  (isearch-done t)
+  (signal 'quit nil))  ; and pass on quit signal
 
 (defun isearch-abort ()
   "Abort incremental search mode if searching is successful, signalling quit.