[Emacs-diffs] Changes to emacs/src/lread.c [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.317.2.3 emacs/src/lread.c:1.317.2.4
*** emacs/src/lread.c:1.317.2.3 Mon Jun 28 07:29:21 2004
--- emacs/src/lread.c   Mon Oct  4 01:19:02 2004
***************
*** 2084,2090 ****
            {
              Lisp_Object tmp;
              tmp = read_vector (readcharfun, 0);
!             if (XVECTOR (tmp)->size != VECSIZE (struct Lisp_Char_Table))
                error ("Invalid size char-table");
              XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
              return tmp;
--- 2084,2090 ----
            {
              Lisp_Object tmp;
              tmp = read_vector (readcharfun, 0);
!             if (XVECTOR (tmp)->size < VECSIZE (struct Lisp_Char_Table))
                error ("Invalid size char-table");
              XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
              return tmp;
***************
*** 2103,2109 ****
                  depth = XINT (AREF (tmp, 0));
                  if (depth < 1 || depth > 3)
                    error ("Invalid depth in char-table");
!                 size = XVECTOR (tmp)->size + 2;
                  if (chartab_size [depth] != size)
                    error ("Invalid size char-table");
                  XSETSUB_CHAR_TABLE (tmp, XSUB_CHAR_TABLE (tmp));
--- 2103,2109 ----
                  depth = XINT (AREF (tmp, 0));
                  if (depth < 1 || depth > 3)
                    error ("Invalid depth in char-table");
!                 size = XVECTOR (tmp)->size - 2;
                  if (chartab_size [depth] != size)
                    error ("Invalid size char-table");
                  XSETSUB_CHAR_TABLE (tmp, XSUB_CHAR_TABLE (tmp));