From 6e92b732e3d57ffd09f65bcc4d8df1952a897907 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
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))
 
-- 
1.7.10.4