From e101e71804c0f978562c3a99aa4f0ddc47728233 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 3 Nov 2006 00:24:26 +0000 Subject: [PATCH] *** empty log message *** --- lisp/server.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/lisp/server.el b/lisp/server.el index 1b32ed11228..992d917f986 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -345,22 +345,22 @@ Prefix arg means just kill any existing server communications subprocess." (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 -- 2.39.2