diff options
Diffstat (limited to 'src/casetab.c')
-rw-r--r-- | src/casetab.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/casetab.c b/src/casetab.c index 3433b313c03..6b639147b7b 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -195,7 +195,7 @@ set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt) if (NATNUMP (elt)) { int from; - unsigned to; + int to; if (CONSP (c)) { @@ -204,7 +204,7 @@ set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt) } else from = to = XINT (c); - for (to++; from < to; from++) + for (; from <= to; from++) CHAR_TABLE_SET (table, from, make_number (from)); } } @@ -219,8 +219,7 @@ shuffle (Lisp_Object table, Lisp_Object c, Lisp_Object elt) { if (NATNUMP (elt)) { - int from; - unsigned to; + int from, to; if (CONSP (c)) { @@ -230,7 +229,7 @@ shuffle (Lisp_Object table, Lisp_Object c, Lisp_Object elt) else from = to = XINT (c); - for (to++; from < to; from++) + for (; from <= to; from++) { Lisp_Object tem = Faref (table, elt); Faset (table, elt, make_number (from)); |