diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-07-17 01:28:58 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-07-17 01:28:58 +0000 |
| commit | fa0550553b3c55df3bf85b157335f4bc44c2c4c8 (patch) | |
| tree | 0e0ca893d7cf3738eec6709de415972be24d9190 /src/casetab.c | |
| parent | e59e668bca7c1fedbe11081d8c6843b085a325c4 (diff) | |
| download | emacs-fa0550553b3c55df3bf85b157335f4bc44c2c4c8.tar.gz | |
(shuffle): Fix the logic of setting up the cycle.
Diffstat (limited to 'src/casetab.c')
| -rw-r--r-- | src/casetab.c | 11 |
1 files changed, 5 insertions, 6 deletions
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); + } } } |