* server.el (server-host, server-port, server-auth-dir): Autoload risky.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2acf4c69e05..c8a89e272f1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-27  Glenn Morris  <rgm@gnu.org>
 
+        * server.el (server-host, server-port, server-auth-dir): Autoload risky.
+
         * term/ns-win.el: Restore require of cl when compiling.
         (menu-bar-final-items): Remove non-existent `windows' menu.
 
diff --git a/lisp/server.el b/lisp/server.el
index 463b01ccf09..6fbef70768d 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -110,16 +110,18 @@ If set, the server accepts remote connections; otherwise it is local."
           (string :tag "Name or IP address")
           (const :tag "Local" nil))
   :version "22.1")
+;;;###autoload
 (put 'server-host 'risky-local-variable t)
 
 (defcustom server-port nil
   "The port number that the server process should listen on."
   :group 'server
-  :risky t
   :type '(choice
           (string :tag "Port number")
           (const :tag "Random" nil))
   :version "24.1")
+;;;###autoload
+(put 'server-port 'risky-local-variable t)
 
 (defcustom server-auth-dir (locate-user-emacs-file "server/")
   "Directory for server authentication files.
@@ -131,6 +133,7 @@ directory residing in a NTFS partition instead."
   :group 'server
   :type 'directory
   :version "22.1")
+;;;###autoload
 (put 'server-auth-dir 'risky-local-variable t)
 
 (defcustom server-raise-frame t
@@ -1482,5 +1485,4 @@ only these files will be asked to be saved."
 
 (provide 'server)
 
-;; arch-tag: 1f7ecb42-f00a-49f8-906d-61995d84c8d6
 ;;; server.el ends here