(shuffle): Fix the logic of setting up the cycle.

2 files changed, 10 insertions, 6 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ba05615a0c3..11189fc2d48 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+<<<<<<< ChangeLog
+2009-07-17  Kenichi Handa  <handa@m17n.org>
+
+        * casetab.c (shuffle): Fix the logic of setting up the cycle.
+
 2009-07-16  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
         * nsfns.m (Fns_set_alpha): Remove function.
diff --git a/src/casetab.c b/src/casetab.c
index 423251df317..95fca03584b 100644
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -229,7 +229,6 @@ shuffle (table, c, elt)
 {
   if (NATNUMP (elt))
     {
-      Lisp_Object tem = Faref (table, elt);
       int from, to;
 
       if (CONSP (c))
@@ -241,11 +240,11 @@ shuffle (table, c, elt)
         from = to = XINT (c);
 
       for (; from <= to; from++)
-        if (from != XINT (elt))
-          {
-            Faset (table, elt, make_number (from));
-            Faset (table, make_number (from), tem);
-          }
+        {
+          Lisp_Object tem = Faref (table, elt);
+          Faset (table, elt, make_number (from));
+          Faset (table, make_number (from), tem);
+        }
     }
 }