mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-21 13:10:37 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Juanma Barranquero 2007-10-17 08:15:04 +00:00
parent 2a9f4d55f8
commit d76e204651
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/server.el
View file

@ -505,11 +505,11 @@ kill any existing server communications subprocess."
(when server-use-tcp (when server-use-tcp
(let ((auth-key (let ((auth-key
(loop (loop
;; The auth key is a 64-byte string of random chars in the ;; The auth key is a 64-byte string of random chars in the
;; range `!'..`~'. ;; range `!'..`~'.
for i below 64 for i below 64
collect (+ 33 (random 94)) into auth collect (+ 33 (random 94)) into auth
finally return (concat auth)))) finally return (concat auth))))
(process-put server-process :auth-key auth-key) (process-put server-process :auth-key auth-key)
(with-temp-file server-file (with-temp-file server-file
(set-buffer-multibyte nil) (set-buffer-multibyte nil)