*** empty log message ***

diff --git a/lisp/server.el b/lisp/server.el
index 7d7b001b33fcbdc901bbd7839b207ce22a347f90..c66ff7cfdd6376acc9c59fc10cc852eab612566d 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -505,11 +505,11 @@ kill any existing server communications subprocess."
          (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))))
+                     ;; 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)