From: Daiki Ueno <ueno@unixuser.org>
Date: Fri, 12 Aug 2005 04:09:52 +0000 (+0000)
Subject: Fixed.
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=a57b173ecf236064b38f6756ecf5686ab29d299d

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