From 9f982e22fac39e950f24cfe0329029f42395ef22 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Tue, 3 Aug 2010 14:22:23 +0200 Subject: [PATCH] * server.el (server-start): Simplify loop. --- lisp/ChangeLog | 4 ++++ lisp/server.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * server.el (server-start): Simplify loop. + 2010-08-02 Stefan Monnier * 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) -- 2.39.2