* riece-ruby.el (riece-ruby-set-output-handler): New function.
[riece] / lisp / riece-ruby.el
index 4759f10..da209ca 100644 (file)
     ;;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