From: ueno <ueno>
Date: Thu, 11 Aug 2005 04:13:30 +0000 (+0000)
Subject: * riece-ruby.el (riece-ruby-set-output-handler): New function.
X-Git-Tag: channel-coding-branchpoint~166
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94abd9adf2f0f0ea041161e282e0bd08a65138e2;p=elisp%2Friece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68beb49..8628b54 100644
--- 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
--- 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