* 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 (file)
--- 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 (file)
--- 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)