From: ueno <ueno>
Date: Thu, 11 Aug 2005 04:48:56 +0000 (+0000)
Subject: * riece-ruby.el (riece-ruby-filter): Call output-handler/exit-handler
X-Git-Tag: channel-coding-branchpoint~164
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31393ad0d41abb6abad54d18d0ff72adbb637fa5;p=elisp%2Friece.git

* riece-ruby.el (riece-ruby-filter): Call output-handler/exit-handler
with program name.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 870eec1..18fa219 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* riece-ruby.el: Add docs for variables.
 	(riece-ruby-substitute-variables): Substitute multiple variables.
+	(riece-ruby-filter): Call output-handler/exit-handler with program
+	name.
 
 2005-08-11  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el
index 37ebcd8..eb1fab7 100644
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -198,7 +198,7 @@ Use `riece-ruby-set-exit-handler' to set this variable.")
 		  (let ((entry (assoc (match-string 1)
 				      riece-ruby-output-handler-alist)))
 		    (if entry
-			(funcall (cdr entry) (match-string 2))))
+			(funcall (car entry) (cdr entry) (match-string 2))))
 		(if (looking-at "# exit \\(.*\\)\r")
 		    (riece-ruby-run-exit-handler (match-string 1))))))))
       (forward-line))
@@ -208,7 +208,7 @@ Use `riece-ruby-set-exit-handler' to set this variable.")
   (let ((entry (assoc name riece-ruby-exit-handler-alist)))
     (if entry
 	(progn
-	  (funcall (cdr entry))
+	  (funcall (cdr entry) (car entry))
 	  (setq riece-ruby-exit-handler-alist (delq entry))))))
 
 (defun riece-ruby-sentinel (process status)