From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: John Paul Wallington Newsgroups: gmane.emacs.devel Subject: Re: `fancy-splash-frame' query Date: Wed, 31 Jul 2002 02:36:18 +0100 Sender: emacs-devel-admin@gnu.org Message-ID: NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1028079118 22552 127.0.0.1 (31 Jul 2002 01:31:58 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 31 Jul 2002 01:31:58 +0000 (UTC) Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17ZiLF-0005rd-00 for ; Wed, 31 Jul 2002 03:31:57 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17ZidE-0006XB-00 for ; Wed, 31 Jul 2002 03:50:32 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17ZiLY-0005lb-00; Tue, 30 Jul 2002 21:32:16 -0400 Original-Received: from cmailg2.svr.pol.co.uk ([195.92.195.172]) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17ZiKe-0005l7-00 for ; Tue, 30 Jul 2002 21:31:20 -0400 Original-Received: from modem-253.butterfree.dialup.pol.co.uk ([217.135.52.253] helo=bundalo.shootybangbang.com) by cmailg2.svr.pol.co.uk with esmtp (Exim 3.35 #1) id 17ZiKd-0004zQ-00 for emacs-devel@gnu.org; Wed, 31 Jul 2002 02:31:19 +0100 Original-Received: from jpw by bundalo.shootybangbang.com with local (Exim 3.32 #1 (Debian)) id 17ZiPS-00048G-00 for ; Wed, 31 Jul 2002 02:36:18 +0100 Original-To: emacs-devel@gnu.org In-Reply-To: message from John Paul Wallington on 31 Jul 2002 01:45:46 +0100 Original-References: Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:6186 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6186 I wrote: > Presently, picking "About Emacs" from the Help menu when I have > multiple frames puts the splash screen in a different frame from the > selected one. > > Here is a `fancy-splash-frame' that checks the selected frame first > and returns the first suitable frame rather than the last. > > Is the present behaviour problematic? Is this version okay (I have > only tested it lightly) ? Oh boy! Sorry, that version stunk; it would lose if it ran out of frames. I am a degenerate for testing it so lightly. Here's an alternative... 2002-07-31 John Paul Wallington * startup.el (fancy-splash-frame): Check selected frame last. Index: startup.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v retrieving revision 1.302 diff -u -r1.302 startup.el --- startup.el 14 Jul 2002 15:29:56 -0000 1.302 +++ startup.el 31 Jul 2002 01:29:26 -0000 @@ -1306,7 +1306,7 @@ use the fancy splash screen, but if we do use it, we put it on this frame." (let (chosen-frame) - (dolist (frame (frame-list)) + (dolist (frame (append (frame-list) (list (selected-frame)))) (if (and (frame-visible-p frame) (not (window-minibuffer-p (frame-selected-window frame)))) (setq chosen-frame frame))) -- John Paul Wallington