From: ueno <ueno>
Date: Sat, 13 Dec 2003 12:21:53 +0000 (+0000)
Subject: Embed process-id.
X-Git-Tag: riece-0_1_7~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6e92b732e3d57ffd09f65bcc4d8df1952a897907;p=elisp%2Friece.git

Embed process-id.
---

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))