From: ueno <ueno>
Date: Fri, 12 Aug 2005 04:09:52 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~132
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=498a715fd794404d40e82cb40c718c55cf10d0a7;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-async.el b/lisp/riece-async.el
index 4635643..0c102e2 100644
--- a/lisp/riece-async.el
+++ b/lisp/riece-async.el
@@ -70,9 +70,16 @@ assumed that the file is in the same directory of this file.")
 ;;;###autoload
 (defun riece-async-open-network-stream (name buffer host service)
   (let* ((process-connection-type nil)
-	 (process (apply #'start-process name buffer riece-ruby-command
-			 riece-async-server-program
-			 riece-async-server-program-arguments)))
+	 (process
+	  (apply #'start-process name buffer riece-ruby-command
+		 (if (file-name-absolute-p riece-ruby-server-program)
+		     riece-async-server-program
+		   (expand-file-name
+		    riece-async-server-program
+		    (file-name-directory
+		     (locate-library
+		      (symbol-file 'riece-async-open-network-stream)))))
+		 riece-async-server-program-arguments)))
     (if buffer
 	(save-excursion
 	  (set-buffer (process-buffer process))