# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1192608904 0
# Node ID 209a22b247e01d3f763f0506210a45bd1650a3d4
# Parent  54a59c3c9d8c74bd725d219fe8229b697894bcac
*** empty log message ***

diff -r 54a59c3c9d8c -r 209a22b247e0 lisp/server.el
--- a/lisp/server.el	Wed Oct 17 08:01:23 2007 +0000
+++ b/lisp/server.el	Wed Oct 17 08:15:04 2007 +0000
@@ -505,11 +505,11 @@
 	  (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)