From c405875b2110b1be44100031a316c817737f1f8e Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 11 Aug 2005 04:48:56 +0000 Subject: [PATCH 1/1] * riece-ruby.el (riece-ruby-filter): Call output-handler/exit-handler with program name. --- lisp/ChangeLog | 2 ++ lisp/riece-ruby.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) 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 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) -- 2.25.1