delete-window when alone in frame deletes frame too

delete-window when alone in frame deletes frame too

[Drew Adams]

I use frames instead of windows, by default, so the frames are nearly always
one-window-p. I use the following redefinition of delete-window. I wonder if
this functionality wouldn't make sense for Emacs, in general. It lets you
use C-x 0 to delete both windows and (one-window) frames.

Obviously, if such a change is made, it should be made in the C code,
instead of this way.


(or (fboundp 'old-delete-window)
    (fset 'old-delete-window (symbol-function 'delete-window)))

(defun delete-window (&optional window)
  "Remove WINDOW from the display.  Default is `selected-window'.
If WINDOW is the only one in its frame, then `delete-frame' too."
  (interactive)
  (setq window (or window (selected-window)))
  (select-window window)
  (if (one-window-p) (delete-frame) (old-delete-window (selected-window))))

Note: If the frame is a minibuffer-only frame or the sole frame, an error is
thrown anyway, which is adequate protection.

Re: delete-window when alone in frame deletes frame too

[Kevin Rodgers]

Drew Adams wrote:
 > (or (fboundp 'old-delete-window)
 >     (fset 'old-delete-window (symbol-function 'delete-window)))

Yuck.

(defadvice delete-window (around delete-frame activate compile)
   "If WINDOW is the only one in its frame, then delete the frame instead."
   (let ((window (or (ad-get-arg 0) (selected-window))))
     (select-window window)
     (if (one-window-p)
	(delete-frame)
       ad-do-it)))

-- 
Kevin Rodgers