Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fa055055
Commit
fa055055
authored
Jul 17, 2009
by
Kenichi Handa
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(shuffle): Fix the logic of setting up the cycle.
parent
e59e668b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
6 deletions
+10
-6
src/ChangeLog
src/ChangeLog
+5
-0
src/casetab.c
src/casetab.c
+5
-6
No files found.
src/ChangeLog
View file @
fa055055
<<<<<<< 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.
...
...
src/casetab.c
View file @
fa055055
...
...
@@ -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
);
}
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment