procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Leo Liu 2010-08-03 14:22:23 +02:00 • committed by Juanma Barranquero
parent 7561000b5c
commit 9f982e22fa
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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)

2
lisp/server.el
View file

@ -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)