(quit-window): Restore prefix argument behavior

removed in 2008-10-30 change.  (Bug#1308)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a0e446..ed796fe 100644 (file)
--- 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 56565a6..35b2789 100644 (file)
--- 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))