From xemacs-m  Mon Apr 21 05:56:13 1997
Received: from frege.math.ethz.ch (root@frege-d-math-north-g-west.math.ethz.ch [129.132.145.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id FAA16621
	for <xemacs-beta@xemacs.org>; Mon, 21 Apr 1997 05:56:05 -0500 (CDT)
Received: from midget.math.ethz.ch (vroonhof@midget [129.132.145.4]) by frege.math.ethz.ch (8.6.12/Main-STAT-mailer) with ESMTP id MAA18609 for <xemacs-beta@xemacs.org>; Mon, 21 Apr 1997 12:55:07 +0200
Received: (vroonhof@localhost) by midget.math.ethz.ch (8.6.12/D-MATH-client) id MAA23191; Mon, 21 Apr 1997 12:54:42 +0200
Sender: vroonhof@math.ethz.ch
To: xemacs-beta@xemacs.org
Subject: Re: Losing a frame
References: <kighgh1frav.fsf@jagor.srce.hr> <m2vi5hmqns.fsf@altair.xemacs.org>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: Jan Vroonhof <vroonhof@math.ethz.ch>
Date: 21 Apr 1997 12:54:41 +0200
In-Reply-To: Steven L Baur's message of 20 Apr 1997 12:37:43 -0700
Message-ID: <bysp0k63ym.fsf@midget.math.ethz.ch>
Lines: 39
X-Mailer: Gnus v5.4.37/XEmacs 19.15

Steven L Baur <steve@miranova.com> writes:

> Hrvoje Niksic <hniksic@srce.hr> writes:
> 
> > I tried to repeat it without Gnus, but I cannot always repeat it.  I
> > yet have to find a reliable test-case.
> 
> It's probably related to the new visibility algorithm.  Here are two
> methods of reproducing it:
> 

This fixes it. This is all because of this (eq bla-bla 't) stuff.
Isn't this really unlisp-like? What's wrong with (eq blabla 'icon)?
I missed it because it stores the previous values in a variable first.

iconify-emacs is highly inapproporate with virtual sreens anyway.

--- /u/scratch/xemacs.binkit/lib/xemacs-19.15/lisp/prim/frame.el	Wed Mar 26 05:33:56 1997
+++ frame.el	Mon Apr 21 12:46:14 1997
@@ -721,6 +721,7 @@
 	  map-frame-hook 'deiconify-emacs)
     (iconify-frame me)))
 
+
 (defun deiconify-emacs (&optional ignore)
   (or iconification-data (error "not iconified?"))
   (setq frame-icon-title-format (car iconification-data)
@@ -728,9 +729,9 @@
 	iconification-data (car (cdr (cdr iconification-data))))
   (while iconification-data
     (let ((visibility (cdr (car iconification-data))))
-      (cond ((eq visibility 't)
+      (cond (visibility  ;; JV  (Note non-nil means visible in XEmacs)
 	     (make-frame-visible (car (car iconification-data))))
-;	    (t ;; (eq visibility 'icon)
+;	    (t ;; (eq visibility 'icon) ;; JV Not in XEmacs!!!
 ;	     (make-frame-visible (car (car iconification-data)))
 ;	     (sleep-for 500 t) ; process X events; I really want to XSync() here
 ;	     (iconify-frame (car (car iconification-data))))

