From 498a715fd794404d40e82cb40c718c55cf10d0a7 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 12 Aug 2005 04:09:52 +0000 Subject: [PATCH] Fixed. --- lisp/riece-async.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4