mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kenichi Handa 2009-07-17 01:28:58 +00:00
parent e59e668bca
commit fa0550553b
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -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.

11
src/casetab.c
View File

@ -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);
}
}
}