From 65909b9d2d6f10040cbab0d23ac051ca11efc289 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 29 Aug 2005 06:28:43 +0000 Subject: [PATCH] * test/test-riece-ruby.el (lunit-test-case-teardown): Rest riece-ruby-output-handler-alist and riece-ruby-output-queue-alist. --- lisp/ChangeLog | 3 +++ lisp/riece-ruby.el | 2 +- lisp/test/test-riece-ruby.el | 4 +++- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a28945e..1a12b64 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,9 @@ 2005-08-29 Daiki Ueno + * test/test-riece-ruby.el (lunit-test-case-teardown): Rest + riece-ruby-output-handler-alist and riece-ruby-output-queue-alist. + * riece-server.el (riece-server-keyword-map): Abolished :coding-system-alist keyword. (riece-send-string): Take the target identity as the 2nd argument. diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el index 97f4e5b..a58b4f7 100644 --- a/lisp/riece-ruby.el +++ b/lisp/riece-ruby.el @@ -243,7 +243,7 @@ Use `riece-ruby-set-property' to set this variable.") (format "%s-output-handler" name)) (cdr handler-entry) name output time) (if entry - (setcdr entry (cons output (cdr entry))) + (setcdr entry (cons (cons output time) (cdr entry))) (setq riece-ruby-output-queue-alist (cons (list name (cons output time)) riece-ruby-output-queue-alist)))))) diff --git a/lisp/test/test-riece-ruby.el b/lisp/test/test-riece-ruby.el index ca99573..3c2a8f5 100644 --- a/lisp/test/test-riece-ruby.el +++ b/lisp/test/test-riece-ruby.el @@ -3,6 +3,8 @@ (luna-define-class test-riece-ruby (lunit-test-case)) (luna-define-method lunit-test-case-teardown ((case test-riece-ruby)) + (setq riece-ruby-output-handler-alist nil + riece-ruby-output-queue-alist nil) (riece-ruby-execute "exit!") (sleep-for 1)) @@ -95,4 +97,4 @@ (setq test-riece-ruby-output-handler-2 output))) (lunit-assert-2 case - (equal test-riece-ruby-output-handler-2 "4294967296")))) \ No newline at end of file + (equal test-riece-ruby-output-handler-2 "4294967296")))) -- 1.7.10.4