Mercurial > emacs
comparison lisp/server.el @ 85350:209a22b247e0
*** empty log message ***
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 17 Oct 2007 08:15:04 +0000 |
| parents | 68048ac5712c |
| children | a10ee3a5c9ce |
comparison
equal
deleted
inserted
replaced
| 85349:54a59c3c9d8c | 85350:209a22b247e0 |
|---|---|
| 503 :plist '(:authenticated t))))) | 503 :plist '(:authenticated t))))) |
| 504 (unless server-process (error "Could not start server process")) | 504 (unless server-process (error "Could not start server process")) |
| 505 (when server-use-tcp | 505 (when server-use-tcp |
| 506 (let ((auth-key | 506 (let ((auth-key |
| 507 (loop | 507 (loop |
| 508 ;; The auth key is a 64-byte string of random chars in the | 508 ;; The auth key is a 64-byte string of random chars in the |
| 509 ;; range `!'..`~'. | 509 ;; range `!'..`~'. |
| 510 for i below 64 | 510 for i below 64 |
| 511 collect (+ 33 (random 94)) into auth | 511 collect (+ 33 (random 94)) into auth |
| 512 finally return (concat auth)))) | 512 finally return (concat auth)))) |
| 513 (process-put server-process :auth-key auth-key) | 513 (process-put server-process :auth-key auth-key) |
| 514 (with-temp-file server-file | 514 (with-temp-file server-file |
| 515 (set-buffer-multibyte nil) | 515 (set-buffer-multibyte nil) |
| 516 (setq buffer-file-coding-system 'no-conversion) | 516 (setq buffer-file-coding-system 'no-conversion) |
| 517 (insert (format-network-address | 517 (insert (format-network-address |