# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860653799 0
# Node ID dc683d40dde5f9ce9c88b23d28e07d7ef61ef5a8
# Parent  7c7aaf0aeedb65d935eb3c4b424e84050a922cdc
(keyboard-escape-quit): Exit recursive edits,
and switch away from buffers whose names start with space.

diff -r 7c7aaf0aeedb -r dc683d40dde5 lisp/simple.el
--- a/lisp/simple.el	Thu Apr 10 06:18:40 1997 +0000
+++ b/lisp/simple.el	Thu Apr 10 06:29:59 1997 +0000
@@ -2843,10 +2843,14 @@
 	((and transient-mark-mode
 	      mark-active)
 	 (deactivate-mark))
+	((> (recursion-depth) 0)
+	 (exit-recursive-edit))
 	(buffer-quit-function
 	 (funcall buffer-quit-function))
 	((not (one-window-p t))
-	 (delete-other-windows))))
+	 (delete-other-windows))
+	((string-match "^ \\*" (buffer-name (current-buffer)))
+	 (bury-buffer))))
 
 (define-key global-map "\e\e\e" 'keyboard-escape-quit)