From 19993c5484d50310edb40d444e950e12ea8a501f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 5 Dec 1994 19:34:52 +0000 Subject: (isearch-cancel): New function. (isearch-mode-map): Bind that to ESC ESC ESC. --- lisp/isearch.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp/isearch.el') diff --git a/lisp/isearch.el b/lisp/isearch.el index e31abb94655..8e945312ef1 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte -;; |$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 @@ Default value, nil, means edit the string instead.") (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 @@ If first char entered is \\[isearch-yank-word], then do word search instead." (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. -- cgit v1.2.1