Mercurial > emacs
comparison lisp/window.el @ 21970:3c8d5ab91f84
(quit-window): Fixed FRAME to be the frame and never window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 May 1998 04:05:28 +0000 |
| parents | 58d299618042 |
| children | 5750539e01e7 |
comparison
equal
deleted
inserted
replaced
| 21969:96ae627335f5 | 21970:3c8d5ab91f84 |
|---|---|
| 301 | 301 |
| 302 If WINDOW is non-nil, it specifies a window; we delete that window, | 302 If WINDOW is non-nil, it specifies a window; we delete that window, |
| 303 and the buffer that is killed or buried is the one in that window." | 303 and the buffer that is killed or buried is the one in that window." |
| 304 (interactive "P") | 304 (interactive "P") |
| 305 (let ((buffer (window-buffer window)) | 305 (let ((buffer (window-buffer window)) |
| 306 (frame (if window (window-frame window) (selected-window))) | 306 (frame (window-frame (or window (selected-window)))) |
| 307 (window-solitary | 307 (window-solitary |
| 308 (save-selected-window | 308 (save-selected-window |
| 309 (if window | 309 (if window |
| 310 (select-window window)) | 310 (select-window window)) |
| 311 (one-window-p t))) | 311 (one-window-p t))) |