[Top][All Lists]
[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
- Gnuserv, Gerd Moellmann, 2001/10/28
- Re: Gnuserv, Pavel JanÃk, 2001/10/28
- Re: Gnuserv,
Juanma Barranquero <=
- Re: Gnuserv, Juanma Barranquero, 2001/10/29
- Re: Gnuserv, Richard Stallman, 2001/10/29
- Re: Gnuserv, Stefan Monnier, 2001/10/29
- Re: Gnuserv, Per Abrahamsen, 2001/10/30
- Re: Gnuserv, Robert J. Chassell, 2001/10/30
- Re: Gnuserv, Per Abrahamsen, 2001/10/30
- Re: Gnuserv, Colin Walters, 2001/10/31
- Re: Gnuserv, Eli Zaretskii, 2001/10/31
- Re: Gnuserv, Colin Walters, 2001/10/31