[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: delete-window when alone in frame deletes frame too
|
From: |
Kevin Rodgers |
|
Subject: |
Re: delete-window when alone in frame deletes frame too |
|
Date: |
Thu, 17 Jun 2004 09:10:48 -0600 |
|
User-agent: |
Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 |
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