From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 3 Nov 2006 00:24:26 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-22.0.91~392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e101e71804c0f978562c3a99aa4f0ddc47728233;p=emacs.git

*** empty log message ***
---

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