Mercurial > emacs

changeset 109620:71264d39075a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* server.el (server-start): Simplify loop.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 03 Aug 2010 14:22:23 +0200
parents eed576998b56
children 6ed9d360e4c7
files lisp/ChangeLog lisp/server.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Aug 03 01:20:48 2010 +0200
+++ b/lisp/ChangeLog	Tue Aug 03 14:22:23 2010 +0200
@@ -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)
--- a/lisp/server.el	Tue Aug 03 01:20:48 2010 +0200
+++ b/lisp/server.el	Tue Aug 03 14:22:23 2010 +0200
@@ -577,7 +577,7 @@
 		   (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)