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

[riece] / lisp / riece-ruby.el

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
                  (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))
                (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
   (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)
          (setq riece-ruby-exit-handler-alist (delq entry))))))
 
 (defun riece-ruby-sentinel (process status)