From xemacs-m  Tue Sep 16 13:28:05 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id NAA13452
	for <xemacs-beta@xemacs.org>; Tue, 16 Sep 1997 13:28:01 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.7/8.8.7) id LAA17572;
	Tue, 16 Sep 1997 11:31:13 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: keyboard focus lossage
References: <m2iuw4pujq.fsf@altair.xemacs.org> 	<lbwwkhbrsa.fsf@orion.kurims.kyoto-u.ac.jp> <QQdhgt00997.199709161659@crystal.WonderWorks.COM>
X-Face: `'%\i;ySOu]g?NlziJSk_$&@]KP`}~PEQPjZ5;nxSaDW_o$4+4%Ab]%Ifw3ZR;7TIT3,O,'
 @2{L;]ox6kc;$_5kU'n**9vFg-]eV~GbxSVCx|(s%uR[],*:^WKmC`B}(;|k9/m]gwt?&`t;^rfCJg
 khHH>pP1W\)xM0U@!FNDD72{3fDP$PkBhx^7Z?-WxH6DbFN:QOnT`llzW}VGdYv;n9lzljQvKTIBhQ
 YuV
X-Attribution: sb
From: SL Baur <steve@xemacs.org>
In-Reply-To: Kyle Jones's message of "Tue, 16 Sep 1997 12:59:59 -0400 (EDT)"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 16 Sep 1997 11:31:13 -0700
Message-ID: <m2wwkhjeku.fsf@altair.xemacs.org>
Lines: 31
X-Mailer: Quassia Gnus v0.5/XEmacs 20.3(beta21) - "Minsk"

Kyle Jones <kyle_jones@wonderworks.com> writes:

> Jens-Ulrik Holger Petersen writes:
>> That's not related to the change I suggested to
>> `switch-to-buffer-other-frame', is it?  (We added
>> 
>> (select-frame frame)
>> 
>> I think.)

> Yeah, that'll do it.

Yup.  The following patch restored good behavior:

Index: lisp/prim/files.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/files.el,v
retrieving revision 1.26
diff -u -r1.26 files.el
--- files.el	1997/09/03 03:39:14	1.26
+++ files.el	1997/09/14 05:50:23
@@ -635,7 +635,8 @@
 	 (frame (make-frame (if name
 				  (list (cons 'name (symbol-name name)))))))
     (pop-to-buffer buffer t frame)
-    (select-frame frame)
+    (unless focus-follows-mouse
+      (select-frame frame))
     (make-frame-visible frame)
     buffer))
 

