From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Sep 2003 00:52:08 +0000 (+0000)
Subject: (kill-buffer-and-window): Remove `yes-or-no-p' so that
X-Git-Tag: ttn-vms-21-2-B4~8859
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f790c74e1c595fb8ce3984ba7a7492ac951db44;p=emacs.git

(kill-buffer-and-window): Remove `yes-or-no-p' so that
the function is less noisy.  Now only `kill-buffer' can ask questions.
---

diff --git a/lisp/window.el b/lisp/window.el
index 0dadd4195c6..2cfc254b220 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -532,11 +532,18 @@ Return non-nil if the window was shrunk."
 (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")))
+  (let ((window-to-delete (selected-window))
+	(delete-window-hook (lambda ()
+			      (condition-case nil
+				  (delete-window)
+				(error nil)))))
+    (add-hook 'kill-buffer-hook delete-window-hook t t)
+    (if (kill-buffer (current-buffer))
+	;; If `delete-window' failed before, we rerun it to regenerate
+	;; the error so it can be seen in the minibuffer.
+	(when (eq (selected-window) window-to-delete)
+	  (delete-window))
+      (remove-hook 'kill-buffer-hook delete-window-hook t))))
 
 (defun quit-window (&optional kill window)
   "Quit the current buffer.  Bury it, and maybe delete the selected frame.