From: Martin Rudalics <rudalics@gmx.at>
Date: Wed, 5 Nov 2008 16:45:19 +0000 (+0000)
Subject: (quit-window): Restore prefix argument behavior
X-Git-Tag: emacs-pretest-23.0.90~1959
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f417bc0a9ccfd22698c74799552c959ef3692191;p=emacs.git

(quit-window): Restore prefix argument behavior
removed in 2008-10-30 change.  (Bug#1308)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a0e4461c57..ed796fe93f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-05  Martin Rudalics  <rudalics@gmx.at>
+
+	* window.el (quit-window): Restore prefix argument behavior
+	removed in 2008-10-30 change.  (Bug#1308)
+
 2008-11-05  Tassilo Horn  <tassilo@member.fsf.org>
 
 	* doc-view.el (doc-view-mode): Bugfix: Add conversion killing
diff --git a/lisp/window.el b/lisp/window.el
index 56565a615e1..35b2789cb02 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1420,12 +1420,14 @@ Return non-nil if the window was shrunk, nil otherwise."
 
 (defun quit-window (&optional kill window)
   "Bury or kill (with KILL non-nil) the buffer displayed in WINDOW.
+With a prefix argument, kill the buffer instead.
+
 KILL defaults to nil, WINDOW to the selected window.  If WINDOW
 is dedicated or a minibuffer window, delete it and, if it's the
 only window on its frame, delete its frame as well provided there
 are other frames left.  Otherwise, display some other buffer in
 the window."
-  (interactive)
+  (interactive "P")
   (let* ((window (or window (selected-window)))
 	 (buffer (window-buffer window)))
     (if (or (window-minibuffer-p window) (window-dedicated-p window))