From fa0550553b3c55df3bf85b157335f4bc44c2c4c8 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 17 Jul 2009 01:28:58 +0000 Subject: [PATCH] (shuffle): Fix the logic of setting up the cycle. --- src/ChangeLog | 5 +++++ src/casetab.c | 11 +++++------ 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 + + * casetab.c (shuffle): Fix the logic of setting up the cycle. + 2009-07-16 YAMAMOTO Mitsuharu * 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); + } } } -- 2.39.2