Commit a0c859f0 authored by Martin Rudalics's avatar Martin Rudalics
Browse files

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

trying to delete it.
parent 79f0fbcf
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> 2008-11-17 Glenn Morris <rgm@gnu.org>
   
* progmodes/cc-defs.el (c-put-char-property-fun): Add fallback * progmodes/cc-defs.el (c-put-char-property-fun): Add fallback
......
...@@ -1437,7 +1437,8 @@ Otherwise, bury WINDOW's buffer, see `bury-buffer'." ...@@ -1437,7 +1437,8 @@ Otherwise, bury WINDOW's buffer, see `bury-buffer'."
(window-dedicated-p window)) (window-dedicated-p window))
;; WINDOW is either non-nil, a minibuffer window, or dedicated; ;; WINDOW is either non-nil, a minibuffer window, or dedicated;
;; try to delete it. ;; 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)) (if (eq window (frame-root-window frame))
;; WINDOW is alone on its frame. `delete-windows-on' ;; WINDOW is alone on its frame. `delete-windows-on'
;; knows how to handle that case. ;; knows how to handle that case.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment