Mercurial > emacs
changeset 73629:df25a33a90b0
*** empty log message ***
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 03 Nov 2006 00:24:26 +0000 |
| parents | 97c917d6101a |
| children | 52c60387f8d4 |
| files | lisp/server.el |
| diffstat | 1 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Thu Nov 02 23:46:14 2006 +0000 +++ b/lisp/server.el Fri Nov 03 00:24:26 2006 +0000 @@ -345,22 +345,22 @@ (list :family 'local :service server-file :plist '(:authenticated t))))) - (unless server-process (error "Could not start server process")) - (when server-use-tcp - (let ((auth-key - (loop - ;; The auth key is a 64-byte string of random chars in the - ;; range `!'..`~'. - for i below 64 - collect (+ 33 (random 94)) into auth - finally return (concat auth)))) - (process-put server-process :auth-key auth-key) - (with-temp-file server-file - (set-buffer-multibyte nil) - (setq buffer-file-coding-system 'no-conversion) - (insert (format-network-address - (process-contact server-process :local)) - "\n" auth-key)))))))) + (unless server-process (error "Could not start server process")) + (when server-use-tcp + (let ((auth-key + (loop + ;; The auth key is a 64-byte string of random chars in the + ;; range `!'..`~'. + for i below 64 + collect (+ 33 (random 94)) into auth + finally return (concat auth)))) + (process-put server-process :auth-key auth-key) + (with-temp-file server-file + (set-buffer-multibyte nil) + (setq buffer-file-coding-system 'no-conversion) + (insert (format-network-address + (process-contact server-process :local)) + "\n" auth-key)))))))) ;;;###autoload (define-minor-mode server-mode