diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/window.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a0e4461c57..ed796fe93f5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-11-05 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * window.el (quit-window): Restore prefix argument behavior | ||
| 4 | removed in 2008-10-30 change. (Bug#1308) | ||
| 5 | |||
| 1 | 2008-11-05 Tassilo Horn <tassilo@member.fsf.org> | 6 | 2008-11-05 Tassilo Horn <tassilo@member.fsf.org> |
| 2 | 7 | ||
| 3 | * doc-view.el (doc-view-mode): Bugfix: Add conversion killing | 8 | * 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." | |||
| 1420 | 1420 | ||
| 1421 | (defun quit-window (&optional kill window) | 1421 | (defun quit-window (&optional kill window) |
| 1422 | "Bury or kill (with KILL non-nil) the buffer displayed in WINDOW. | 1422 | "Bury or kill (with KILL non-nil) the buffer displayed in WINDOW. |
| 1423 | With a prefix argument, kill the buffer instead. | ||
| 1424 | |||
| 1423 | KILL defaults to nil, WINDOW to the selected window. If WINDOW | 1425 | KILL defaults to nil, WINDOW to the selected window. If WINDOW |
| 1424 | is dedicated or a minibuffer window, delete it and, if it's the | 1426 | is dedicated or a minibuffer window, delete it and, if it's the |
| 1425 | only window on its frame, delete its frame as well provided there | 1427 | only window on its frame, delete its frame as well provided there |
| 1426 | are other frames left. Otherwise, display some other buffer in | 1428 | are other frames left. Otherwise, display some other buffer in |
| 1427 | the window." | 1429 | the window." |
| 1428 | (interactive) | 1430 | (interactive "P") |
| 1429 | (let* ((window (or window (selected-window))) | 1431 | (let* ((window (or window (selected-window))) |
| 1430 | (buffer (window-buffer window))) | 1432 | (buffer (window-buffer window))) |
| 1431 | (if (or (window-minibuffer-p window) (window-dedicated-p window)) | 1433 | (if (or (window-minibuffer-p window) (window-dedicated-p window)) |