Mercurial > emacs

diff src/lread.c @ 91046:35069180a991

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix up multi-tty merge Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-261 Creator: Stefan Monnier <monnier@iro.umontreal.ca>
author Miles Bader <miles@gnu.org>
date Fri, 12 Oct 2007 21:06:27 +0000
parents bdb3fe0ba9fa
children d38543a1c0f9
line wrap: on
line diff
--- a/src/lread.c	Fri Oct 12 01:23:15 2007 +0000
+++ b/src/lread.c	Fri Oct 12 21:06:27 2007 +0000
@@ -2324,7 +2324,7 @@
 	      tmp = read_vector (readcharfun, 0);
 	      if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS)
 		error ("Invalid size char-table");
-	      XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+	      XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE);
 	      return tmp;
 	    }
 	  else if (c == '^')
@@ -2344,7 +2344,7 @@
 		  size = XVECTOR (tmp)->size - 2;
 		  if (chartab_size [depth] != size)
 		    error ("Invalid size char-table");
-		  XSETSUB_CHAR_TABLE (tmp, XSUB_CHAR_TABLE (tmp));
+		  XSETPVECTYPE (XVECTOR (tmp), PVEC_SUB_CHAR_TABLE);
 		  return tmp;
 		}
 	      invalid_syntax ("#^^", 3);