From 39e9974840411db591958263f41f420f436f10fb Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 11 Aug 2005 04:13:30 +0000 Subject: [PATCH] * riece-ruby.el (riece-ruby-set-output-handler): New function. --- lisp/ChangeLog | 1 + lisp/riece-ruby.el | 8 ++++++++ 2 files changed, 9 insertions(+) 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 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 -- 2.25.1