From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Oct 1996 16:06:37 +0000 (+0000)
Subject: (kill-buffer-and-window): New command.
X-Git-Tag: emacs-20.1~3475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b691df0c08b37358cd4e083898989fdde197aef1;p=emacs.git

(kill-buffer-and-window): New command.
Bind it to C-x 4 0.
---

diff --git a/lisp/window.el b/lisp/window.el
index 5468999991b..0b55ccbe9a3 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -277,12 +277,22 @@ or if the window is the only window of its frame."
 	    ;; Make sure we unbind buffer-read-only
 	    ;; with the proper current buffer.
 	    (set-buffer buffer))))))
-      
+
+(defun kill-buffer-and-window ()
+  "Kill the current buffer and delete the selected window."
+  (interactive)
+  (if (yes-or-no-p (format "Kill buffer `%s'? " (buffer-name)))
+      (let ((buffer (current-buffer)))
+	(delete-window (selected-window))
+	(kill-buffer buffer))
+    (error "Aborted")))
+
 (define-key ctl-x-map "2" 'split-window-vertically)
 (define-key ctl-x-map "3" 'split-window-horizontally)
 (define-key ctl-x-map "}" 'enlarge-window-horizontally)
 (define-key ctl-x-map "{" 'shrink-window-horizontally)
 (define-key ctl-x-map "-" 'shrink-window-if-larger-than-buffer)
 (define-key ctl-x-map "+" 'balance-windows)
+(define-key ctl-x-4-map "0" 'kill-buffer-and-window)
 
 ;;; windows.el ends here