[Emacs-diffs] emacs/src casetab.c [EMACS_23_1_RC]

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_23_1_RC
Changes by:     Kenichi Handa <handa>   09/07/17 01:26:28

Modified files:
        src            : casetab.c 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/casetab.c?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.48&r2=1.48.2.1

Patches:
Index: casetab.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/casetab.c,v
retrieving revision 1.48
retrieving revision 1.48.2.1
diff -u -b -r1.48 -r1.48.2.1
--- casetab.c   11 Feb 2009 09:45:13 -0000      1.48
+++ casetab.c   17 Jul 2009 01:26:28 -0000      1.48.2.1
@@ -229,7 +229,6 @@
 {
   if (NATNUMP (elt))
     {
-      Lisp_Object tem = Faref (table, elt);
       int from, to;
 
       if (CONSP (c))
@@ -241,8 +240,8 @@
        from = to = XINT (c);
 
       for (; from <= to; from++)
-       if (from != XINT (elt))
          {
+         Lisp_Object tem = Faref (table, elt);
            Faset (table, elt, make_number (from));
            Faset (table, make_number (from), tem);
          }