From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.devel Subject: Re: delete-window when alone in frame deletes frame too Date: Thu, 17 Jun 2004 09:10:48 -0600 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <40D1B478.3030800@yahoo.com> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1087485092 7458 80.91.224.253 (17 Jun 2004 15:11:32 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 17 Jun 2004 15:11:32 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Thu Jun 17 17:11:26 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BayY2-0005SV-00 for ; Thu, 17 Jun 2004 17:11:26 +0200 Original-Received: from lists.gnu.org ([199.232.76.165]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1BayY2-00069K-00 for ; Thu, 17 Jun 2004 17:11:26 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BayZ5-0002XY-8J for emacs-devel@quimby.gnus.org; Thu, 17 Jun 2004 11:12:31 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BayYw-0002Tx-HT for emacs-devel@gnu.org; Thu, 17 Jun 2004 11:12:22 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BayYu-0002TW-RY for emacs-devel@gnu.org; Thu, 17 Jun 2004 11:12:22 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BayYu-0002TT-OT for emacs-devel@gnu.org; Thu, 17 Jun 2004 11:12:20 -0400 Original-Received: from [80.91.224.249] (helo=main.gmane.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1BayXU-0000Yu-BK for emacs-devel@gnu.org; Thu, 17 Jun 2004 11:10:52 -0400 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1BayXR-00050f-00 for ; Thu, 17 Jun 2004 17:10:51 +0200 Original-Received: from 170.207.1.200 ([170.207.1.200]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 17 Jun 2004 17:10:49 +0200 Original-Received: from ihs_4664 by 170.207.1.200 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 17 Jun 2004 17:10:49 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: emacs-devel@gnu.org Original-Lines: 17 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 170.207.1.200 User-Agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 X-Accept-Language: en-us X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:25063 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:25063 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