From xemacs-m  Sun Jul 20 09:35:50 1997
Received: from MIT.EDU (PACIFIC-CARRIER-ANNEX.MIT.EDU [18.69.0.28])
	by xemacs.org (8.8.5/8.8.5) with SMTP id JAA28914
	for <xemacs-beta@xemacs.org>; Sun, 20 Jul 1997 09:35:49 -0500 (CDT)
Received: from SUNDIAL.MIT.EDU by MIT.EDU with SMTP
	id AA20180; Sun, 20 Jul 97 10:24:20 EDT
Received: by sundial.MIT.EDU (8.8.5/4.7) id KAA23571; Sun, 20 Jul 1997 10:25:35 -0400 (EDT)
Date: Sun, 20 Jul 1997 10:25:35 -0400 (EDT)
Message-Id: <199707201425.KAA23571@sundial.MIT.EDU>
From: David Bakhash <cadet@MIT.EDU>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org
Subject: info patch for Info-exit
X-Mailer: VM 6.31 under 20.2 XEmacs Lucid

Hey,
	here's the patch (my first ever in diff form).  Thanks Steve and 
Hrvoje...
	it's for Info-exit, which as I noted before tends to not work
well if you do the following...

% xemacs -q -no-site-init &

then, inside XEmacs...

(let's call the current frame frame1)
mouse select the toolbar `Info' button.

now you have a new frame (`frame2').

Now, delete frame1, because you figure you don't want it for some
reason. (perfectly valid to do IMHO).

now, you're done with Info.  So invoke Info-exit, however you choose,
either w/ the toolbar button, or with "q".

now you get the error:

Attempt to delete only frame.

a potential fix...

*** /mit/xemacs/lib/xemacs-20.2/lisp/packages/info.el	Wed Apr 23 23:59:59 1997
--- /tmp/info.el	Sun Jul 20 10:19:48 1997
***************
*** 1858,1864 ****
      (bury-buffer (current-buffer))
      (if (and (featurep 'toolbar)
  	     (eq toolbar-info-frame (selected-frame)))
! 	(delete-frame toolbar-info-frame)
        (switch-to-buffer (other-buffer (current-buffer))))))
  
  (defun Info-undefined ()
--- 1858,1866 ----
      (bury-buffer (current-buffer))
      (if (and (featurep 'toolbar)
  	     (eq toolbar-info-frame (selected-frame)))
! 	(condition-case ()
! 	    (delete-frame toolbar-info-frame)
! 	  (error (bury-buffer)))
        (switch-to-buffer (other-buffer (current-buffer))))))
  
  (defun Info-undefined ()

