*** empty log message ***

1 files changed, 16 insertions, 16 deletions

diff --git a/lisp/server.el b/lisp/server.el
index 1b32ed11228..992d917f986 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -345,22 +345,22 @@ Prefix arg means just kill any existing server communications subprocess."
                        (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