emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Gnuserv


From: Juanma Barranquero
Subject: Re: Gnuserv
Date: Mon, 29 Oct 2001 16:01:50 +0100

On 28 Oct 2001 10:38:14 +0100, address@hidden (Gerd Moellmann) wrote:

> I've now also put two gnuserv-*.tar.gz files in /gd/gnu/emacs/ on
> fencepost.  I've already checked that the FSF has papers for these
> two, so if you decide to add gnuserv to Emacs, this should be the
> starting point.

The 2.1apha I've been using in Windows has the following patch applied
(I'm not sure about the author/copyright status, but the note at least
mentions Andrew).


                                                           /L/e/k/t/u




--- gnuserv.el.orig     Mon Oct 29 15:41:56 2001
+++ gnuserv.el  Mon Oct 29 15:56:24 2001
@@ -46,11 +46,14 @@
 ;    - only try to create/delete frames or screens if window-system is non-nil 
 ;      (otherwise things don't work w/ emacs19 on a dumb terminal)
 ;
+; Pete Kaiser October 1998
 
+; Updated with both the window-system (Andrew Innes 8.9.98) and
+; don't-delete-last-frame fixes
 
 
-(defconst gnuserv-rcs-header-id "$Header: gnuserv.el,v 2.1 95/02/16 12:00:16 
arup alpha $")
 
+(defconst gnuserv-rcs-header-id "$Header: gnuserv.el,v 2.1a 98/10/03 14:28:00 
saurian $")
 
 ;; server.el and gnuserv.el can't coexist because of conflicting defvar's and
 ;; function names. 
@@ -217,8 +213,9 @@
   "Try to make this window even more visible."
   (and (boundp 'window-system)
        (boundp 'window-system-version)
-       (eq window-system 'x)
-       (eq window-system-version 11)
+       (or (memq window-system '(win32 w32))
+          (and (eq window-system 'x)
+               (eq window-system-version 11)))
        (cond ((fboundp 'raise-frame)
              (raise-frame (selected-frame)))
             ((fboundp 'deiconify-screen)
@@ -466,7 +453,8 @@
                                        (screenp gnuserv-frame)))))
                      ())                                   ;; do nothing
                     ((fboundp 'delete-frame)
-                     (delete-frame (selected-frame) t))
+                     (if (> (length (frame-list)) 1)
+                         (delete-frame (selected-frame) t)))
                     ((fboundp 'delete-screen)
                      (delete-screen))))
       (error 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]