From ee8a720e4032fc345cd0c09b402a90055fd7ad61 Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Sat, 13 Dec 2003 12:21:53 +0000
Subject: [PATCH] Embed process-id.

---
 lisp/riece-async.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/riece-async.el b/lisp/riece-async.el
index 8cc77db..a1bab54 100644
--- a/lisp/riece-async.el
+++ b/lisp/riece-async.el
@@ -50,7 +50,7 @@
 (defcustom riece-async-server-program
   '("\
 socket = TCPSocket.new(" host ", " service ")
-$stdout.write(\"NOTICE CONNECTED\r\n\")
+$stdout.write(\"NOTICE CONNECTED #{$$}\r\n\")
 $stdout.flush
 loop do
   rfds, = select([socket, $stdin])
@@ -111,7 +111,8 @@ exit
 	  (while (and (eq (process-status process) 'run)
 		      (progn
 			(goto-char (point-min))
-			(not (looking-at "NOTICE CONNECTED"))))
+			(not (looking-at (format "NOTICE CONNECTED %d"
+						 (process-id process))))))
 	    (accept-process-output process))))
     process))
 
-- 
2.25.1