From xemacs-m  Wed Apr  9 19:55:40 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id TAA17066
	for <xemacs-beta@xemacs.org>; Wed, 9 Apr 1997 19:55:39 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id CAA14267; Thu, 10 Apr 1997 02:55:37 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: gnuserv.el is customized
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 10 Apr 1997 02:55:36 +0200
Message-ID: <kign2r7wvav.fsf@jagor.srce.hr>
Lines: 108
X-Mailer: Gnus v5.4.42/XEmacs 19.15

--- gnuserv.el.orig	Thu Apr 10 02:49:26 1997
+++ gnuserv.el	Thu Apr 10 02:54:22 1997
@@ -62,6 +62,13 @@
 
 
 
+(defgroup gnuserv nil
+  "Lisp interface between Emacs and gnuserv"
+  :prefix "server-"
+  :group 'processes
+  :group 'terminals)
+
+
 (defconst gnuserv-rcs-header-id "!Header: gnuserv.el,v 2.1 95/02/16 12:00:16 arup alpha !")
 
 
@@ -78,29 +85,39 @@
 If nil, then a new frame is created for each file edited.
 This variable has no effect in XEmacs versions older than 19.9.")
 
-(defvar server-done-function 'kill-buffer 
+(defcustom server-done-function 'kill-buffer 
   "*A function of one argument, a buffer, which removes the buffer after editing.
 Functions such as 'kill-buffer' and 'bury-buffer' are good values. See also
-`server-done-temp-file-function'")
+`server-done-temp-file-function'"
+  :type 'function
+  :group 'gnuserv)
 
-(defvar server-done-temp-file-function 'kill-buffer
+(defcustom server-done-temp-file-function 'kill-buffer
   "*A function of one argument, a buffer, which removes the buffer after editing a
 temporary file. Functions such as 'kill-buffer' and 'bury-buffer' are
-good values. See also `server-done-function'")
+good values. See also `server-done-function'"
+  :type 'function
+  :group 'gnuserv)
+
+(defcustom server-program "gnuserv"
+  "*The program to use as the edit server"
+  :type 'string
+  :group 'gnuserv)
 
-(defvar server-program "gnuserv"
-  "*The program to use as the edit server")
 
-
- (defvar server-visit-hook nil
-   "*List of hooks to call when visiting a file for the Emacs server.")
+(defcustom server-visit-hook nil
+  "*List of hooks to call when visiting a file for the Emacs server."
+  :type 'hook
+  :group 'gnuserv)
 
 ;; defined by server.el but obsolete?
 ;; (defvar server-switch-hook nil
 ;;  "*List of hooks to call when switching to a buffer for the Emacs server.")
 
-(defvar server-done-hook nil
-  "*List of hooks to call when done editing a buffer for the Emacs server.")
+(defcustom server-done-hook nil
+  "*List of hooks to call when done editing a buffer for the Emacs server."
+  :type 'hook
+  :group 'gnuserv)
 
 
 (defvar server-process nil 
@@ -121,21 +138,27 @@
 that can be given to the server process to identify a client.
 When a buffer is killed, it is removed from this list.")
 
-(defvar server-kill-quietly nil
+(defcustom server-kill-quietly nil
   "If this variable is set then don't confirm kills of buffers with
-  clients attached")
+clients attached"
+  :type 'boolean
+  :group 'gnuserv)
 
 
 (defvar server-buffer-clients nil
   "List of client ids for clients requesting editing of the current buffer.")
 
-(defvar server-temp-file-regexp "^/tmp/Re\\|/draft$"
+(defcustom server-temp-file-regexp "^/tmp/Re\\|/draft$"
   "*Regexp which should match filenames of temporary files
 which are deleted and reused after each edit
-by the programs that invoke the emacs server.")
-
-(defvar server-make-temp-file-backup nil
-  "Non-nil makes the server backup temporary files also")
+by the programs that invoke the emacs server."
+  :type 'regexp
+  :group 'gnuserv)
+
+(defcustom server-make-temp-file-backup nil
+  "Non-nil makes the server backup temporary files also"
+  :type 'regexp
+  :group 'gnuserv)
 
 (make-variable-buffer-local 'server-buffer-clients)
 (setq-default server-buffer-clients nil)

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Unspeakable horrors from outer space paralyze the living and
resurrect the dead!

