* riece-ruby.el (riece-ruby-set-output-handler): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68beb49..8628b54 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * server.rb: Renamed from rubyserv.rb; s/RubyServ/Server/.
        * riece-ruby.el (riece-ruby-server-program): Follow the filename
        change.
+       (riece-ruby-set-output-handler): New function.
 
 2005-08-11  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el
index 4759f10..da209ca 100644 (file)
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -248,6 +248,14 @@
     ;;check if the program already exited
     (riece-ruby-inspect)))
 
+(defun riece-ruby-set-output-handler (name handler)
+  (let ((entry (assoc name riece-ruby-output-handler-alist)))
+    (if entry
+       (setcdr entry handler)
+      (setq riece-ruby-output-handler-alist
+           (cons (cons name handler)
+                 riece-ruby-output-handler-alist)))))
+
 (provide 'riece-ruby)
 
 ;;; riece-ruby.el ends here