# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232686360 0
# Node ID 03050eba53aaee4d3216077693e10e07f3243628
# Parent  922a0e9e1a246d158cd1f053e9eba3a08d077d8b
(server-name): Make it a defcustom.

diff -r 922a0e9e1a24 -r 03050eba53aa lisp/server.el
--- a/lisp/server.el	Fri Jan 23 04:52:32 2009 +0000
+++ b/lisp/server.el	Fri Jan 23 04:52:40 2009 +0000
@@ -200,7 +200,13 @@
 are done with it in the server.")
 (make-variable-buffer-local 'server-existing-buffer)
 
-(defvar server-name "server")
+(defcustom server-name "server"
+  "The name of the Emacs server, if this Emacs process creates one.
+The command `server-start' makes use of this.  It should not be
+changed while a server is running."
+  :group 'server
+  :type 'string
+  :version "23.1")
 
 (defvar server-socket-dir
   (and (featurep 'make-network-process '(:family local))