From xemacs-m  Tue Dec 17 15:51:34 1996
Received: from black-ice.cc.vt.edu (root@black-ice.cc.vt.edu [128.173.14.71])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id PAA01132 for <xemacs-beta@xemacs.org>; Tue, 17 Dec 1996 15:51:33 -0600 (CST)
Received: from black-ice.cc.vt.edu (valdis@LOCALHOST [127.0.0.1])
          by black-ice.cc.vt.edu (8.8.4/8.8.4) with ESMTP
	  id QAA67400 for <xemacs-beta@xemacs.org>; Tue, 17 Dec 1996 16:51:27 -0500
Message-Id: <199612172151.QAA67400@black-ice.cc.vt.edu>
X-Mailer: exmh version 2.0alpha 12/3/96
To: xemacs-beta@xemacs.org
Subject: gnuserv.el and killing the last window.
From: Valdis.Kletnieks@vt.edu
X-Url: http://black-ice.cc.vt.edu/~valdis/
Mime-Version: 1.0
Content-Type: multipart/signed; boundary="==_Exmh_1676529362P";
	micalg=pgp-md5; protocol="application/pgp-signature"
Content-Transfer-Encoding: 7bit
Date: Tue, 17 Dec 1996 16:51:26 -0500

--==_Exmh_1676529362P
Content-Type: multipart/mixed; boundary="----- =_aaaaaaaaaa0"
Content-Id: <28716.850859481.0@black-ice.cc.vt.edu>

------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <28716.850859481.1@black-ice.cc.vt.edu>

I *used* to be able to start xemacs -unmapped, and then use gnuclient
to send off requests, and it would leave zero windows open if nothing
was left being edited.  However, around 20.0-b26 or so, there was the
return of the 'force' option to delete-frame.

Does anybody see anything vastly wrong with the following patch to
create a user-settable flag so they can select whether or not they
want the last frame to be killable?


------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <28716.850859481.2@black-ice.cc.vt.edu>

*** lisp/packages/gnuserv.el.dist	Tue Dec 17 16:21:15 1996
--- lisp/packages/gnuserv.el	Tue Dec 17 16:24:56 1996
***************
*** 83,89 ****
  
  (defvar server-string ""
    "The last input string from the server")
! 
  (defvar current-client nil
    "The client we are currently talking to")
  
--- 83,90 ----
  
  (defvar server-string ""
    "The last input string from the server")
! (defvar server-kill-last-win nil 
!   "set to t to kill last window")
  (defvar current-client nil
    "The client we are currently talking to")
  
***************
*** 500,506 ****
  			       gnuserv-frame
  			       (frame-live-p gnuserv-frame))
  			  (condition-case ()
! 			      (delete-frame (selected-frame) nil)
  			    (error 
  			     (message "Not deleting last visible frame...")))))
  		     ((or (not window-system) 
--- 501,507 ----
  			       gnuserv-frame
  			       (frame-live-p gnuserv-frame))
  			  (condition-case ()
! 			      (delete-frame (selected-frame) server-kill-last-window)
  			    (error 
  			     (message "Not deleting last visible frame...")))))
  		     ((or (not window-system) 

------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <28716.850859481.3@black-ice.cc.vt.edu>

-- 
				Valdis Kletnieks
				Computer Systems Engineer
				Virginia Tech



------- =_aaaaaaaaaa0--

--==_Exmh_1676529362P
Content-Type: application/pgp-signature

-----BEGIN PGP MESSAGE-----
Version: 2.6.2

iQCVAwUBMrcV29QBOOoptg9JAQHY+wP/S2CVc1tAcs8AOVRXoroR2CsIjj2DG3TY
7mba/qbth1ev+P1stTJnWwobLLzhgU9ZU/wfgeOmg54Ql/vYP74chMTGrQafVzed
iRhufrcc/jyFc0SYn9AHXMMnU8FrZHqL2vcl1liLpGaStKNd6HVFBFhXW7R0dJSj
GHSD+U7KI6g=
=5DW8
-----END PGP MESSAGE-----

--==_Exmh_1676529362P--

