[Emacs-diffs] Changes to emacs/src/lread.c,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/10/17 14:12:59

Index: lread.c
===================================================================
RCS file: /sources/emacs/emacs/src/lread.c,v
retrieving revision 1.382
retrieving revision 1.383
diff -u -b -r1.382 -r1.383
--- lread.c     16 Oct 2007 16:28:39 -0000      1.382
+++ lread.c     17 Oct 2007 14:12:58 -0000      1.383
@@ -2207,7 +2207,7 @@
              if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS
                  || XVECTOR (tmp)->size > CHAR_TABLE_STANDARD_SLOTS + 10)
                error ("Invalid size char-table");
-             XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+             XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE);
              XCHAR_TABLE (tmp)->top = Qt;
              return tmp;
            }
@@ -2220,7 +2220,7 @@
                  tmp = read_vector (readcharfun, 0);
                  if (XVECTOR (tmp)->size != SUB_CHAR_TABLE_STANDARD_SLOTS)
                    error ("Invalid size char-table");
-                 XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+                 XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE);
                  XCHAR_TABLE (tmp)->top = Qnil;
                  return tmp;
                }