# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1162513466 0
# Node ID df25a33a90b0b522ee319c9dee6b136446161cb2
# Parent  97c917d6101ab68a82b4347248c9e8fedab9691c
*** empty log message ***

diff -r 97c917d6101a -r df25a33a90b0 lisp/server.el
--- a/lisp/server.el	Thu Nov 02 23:46:14 2006 +0000
+++ b/lisp/server.el	Fri Nov 03 00:24:26 2006 +0000
@@ -345,22 +345,22 @@
                        (list :family 'local
                              :service server-file
                              :plist '(:authenticated t)))))
-      (unless server-process (error "Could not start server process"))
-      (when server-use-tcp
-        (let ((auth-key
-               (loop
-                  ;; The auth key is a 64-byte string of random chars in the
-                  ;; range `!'..`~'.
-                  for i below 64
-                  collect (+ 33 (random 94)) into auth
-                  finally return (concat auth))))
-          (process-put server-process :auth-key auth-key)
-          (with-temp-file server-file
-            (set-buffer-multibyte nil)
-            (setq buffer-file-coding-system 'no-conversion)
-            (insert (format-network-address
-                     (process-contact server-process :local))
-                    "\n" auth-key))))))))
+        (unless server-process (error "Could not start server process"))
+        (when server-use-tcp
+          (let ((auth-key
+                 (loop
+                    ;; The auth key is a 64-byte string of random chars in the
+                    ;; range `!'..`~'.
+                    for i below 64
+                    collect (+ 33 (random 94)) into auth
+                    finally return (concat auth))))
+            (process-put server-process :auth-key auth-key)
+            (with-temp-file server-file
+              (set-buffer-multibyte nil)
+              (setq buffer-file-coding-system 'no-conversion)
+              (insert (format-network-address
+                       (process-contact server-process :local))
+                      "\n" auth-key))))))))
 
 ;;;###autoload
 (define-minor-mode server-mode