* riece-ruby.el (riece-ruby-filter): Call output-handler/exit-handler
authorDaiki Ueno <ueno@unixuser.org>
Thu, 11 Aug 2005 04:48:56 +0000 (04:48 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Thu, 11 Aug 2005 04:48:56 +0000 (04:48 +0000)
with program name.

lisp/ChangeLog
lisp/riece-ruby.el

index 870eec1..18fa219 100644 (file)
@@ -2,6 +2,8 @@
 
        * riece-ruby.el: Add docs for variables.
        (riece-ruby-substitute-variables): Substitute multiple variables.
 
        * 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>
 
 
 2005-08-11  Daiki Ueno  <ueno@unixuser.org>
 
index 37ebcd8..eb1fab7 100644 (file)
@@ -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)