From: ueno <ueno>
Date: Thu, 11 Aug 2005 07:37:04 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~160
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1378a6a7633b97b4642d61120f3b5ac9f98eaf8a;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el
index fc11dce..2792b22 100644
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -322,9 +322,9 @@ Use `riece-ruby-set-property' to set this variable.")
 
 (defun riece-ruby-exit-handler (name)
   (riece-ruby-inspect name)
-  (let ((data (copy-sequence riece-ruby-data))
-	(length (length data))
-	(index 0))
+  (let* ((data (copy-sequence riece-ruby-data))
+	 (length (length data))
+	 (index 0))
     (while (< index length)
       (if (eq (aref data index) ?\n)
 	  (aset data index " ")))