From a57b173ecf236064b38f6756ecf5686ab29d299d Mon Sep 17 00:00:00 2001 From: Daiki 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)) -- 2.25.1