Mercurial > emacs
changeset 17355:dc683d40dde5
(keyboard-escape-quit): Exit recursive edits,
and switch away from buffers whose names start with space.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Apr 1997 06:29:59 +0000 |
| parents | 7c7aaf0aeedb |
| children | 9f345ed0683e |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)