From: Leo Liu <sdl.web@gmail.com>
Date: Tue, 3 Aug 2010 12:22:23 +0000 (+0200)
Subject: * server.el (server-start): Simplify loop.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~49^2~71
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f982e22fac39e950f24cfe0329029f42395ef22;p=emacs.git

* server.el (server-start): Simplify loop.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60a1b8a3f18..c6476ca1df5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-08-03  Leo  <sdl.web@gmail.com>
+
+	* server.el (server-start): Simplify loop.
+
 2010-08-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* frame.el (screen-height, screen-width, set-screen-width)
diff --git a/lisp/server.el b/lisp/server.el
index 1ac2fb5b361..b2198caec4c 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -577,7 +577,7 @@ server or call `M-x server-force-delete' to forcibly disconnect it.")
 		   (loop
 		      ;; The auth key is a 64-byte string of random chars in the
 		      ;; range `!'..`~'.
-		      for i below 64
+		      repeat 64
 		      collect (+ 33 (random 94)) into auth
 		      finally return (concat auth))))
 	      (process-put server-process :auth-key auth-key)