[Tkabber-dev] r1771 - trunk/tkabber/plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Apr 1 00:15:02 MSD 2009


Author: sergei
Date: 2009-04-01 00:15:02 +0400 (Wed, 01 Apr 2009)
New Revision: 1771

Modified:
   trunk/tkabber/plugins/chat/shuffle.tcl
Log:
    * Fixed typo.


Modified: trunk/tkabber/plugins/chat/shuffle.tcl
===================================================================
--- trunk/tkabber/plugins/chat/shuffle.tcl	2009-03-31 15:22:21 UTC (rev 1770)
+++ trunk/tkabber/plugins/chat/shuffle.tcl	2009-03-31 20:15:02 UTC (rev 1771)
@@ -166,7 +166,7 @@
     set previ 0
     foreach {ib ie} $tindex {
         if {$ie == [llength $tindex]} {
-            set ie [incr [llength $tindex] -1]
+	    incr ie -1
         }
         if {$previ != $ib} {
             append shtext [string range $text_part $previ $ib]



More information about the Tkabber-dev mailing list