lisp/server.el (server-start): For compatibility, revert part of 2010-09-30T02:53...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07dbc824cd5b2adf258251c90a3402936b7c4178..901a5fb53a333777237866e7dca2417eabe9d49a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-01  Juanma Barranquero  <lekktu@gmail.com>
+
+       * server.el (server-start): Revert part of 2010-09-30T02:53:26Z!lekktu@gmail.com.
+       Let's not break compatibility gratuitously, shall we?
+
 2010-09-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * net/tls.el (tls-starttls-switches): New variable.

diff --git a/lisp/server.el b/lisp/server.el
index 87250fd3aaf9537f8df36dd6862f5e524d35e322..0f1b0219a2c75011f5a5a2d33e569e5d7552b00f 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -586,6 +586,7 @@ server or call `M-x server-force-delete' to forcibly disconnect it.")
                (setq buffer-file-coding-system 'no-conversion)
                (insert (format-network-address
                         (process-contact server-process :local))
+                       " " (number-to-string (emacs-pid)) ; Kept for compatibility
                        "\n" auth-key)))))))))
 
 ;;;###autoload