mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(quit-window): Bind window to selected window when

Browse Source 
trying to delete it.
This commit is contained in:
Martin Rudalics 2008-11-17 09:58:50 +00:00
parent 79f0fbcfd4
commit a0c859f043
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-11-17 Martin Rudalics <rudalics@gmx.at>
* window.el (quit-window): Bind window to selected window when
trying to delete it.
2008-11-17 Glenn Morris <rgm@gnu.org>
* progmodes/cc-defs.el (c-put-char-property-fun): Add fallback

3
lisp/window.el
View File

@ -1437,7 +1437,8 @@ Otherwise, bury WINDOW's buffer, see `bury-buffer'."
(window-dedicated-p window))
;; WINDOW is either non-nil, a minibuffer window, or dedicated;
;; try to delete it.
(let ((frame (window-frame (or window (selected-window)))))
(let* ((window (or window (selected-window)))
(frame (window-frame window)))
(if (eq window (frame-root-window frame))
;; WINDOW is alone on its frame. `delete-windows-on'
;; knows how to handle that case.