# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 860397133 0
# Node ID c19c552c486f8ecc82f3b6c971fa938c0421d362
# Parent  ed53084a1655572295484f0478c9f24238777c10
(read1): Adjusted for the new structure of Lisp_Char_Table.

diff -r ed53084a1655 -r c19c552c486f src/lread.c
--- a/src/lread.c	Mon Apr 07 07:12:13 1997 +0000
+++ b/src/lread.c	Mon Apr 07 07:12:13 1997 +0000
@@ -1336,8 +1336,25 @@
 		  || XVECTOR (tmp)->size > CHAR_TABLE_STANDARD_SLOTS + 10)
 		error ("Invalid size char-table");
 	      XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+	      XCHAR_TABLE (tmp)->top = Qt;
 	      return tmp;
 	    }
+	  else if (c == '^')
+	    {
+	      c = READCHAR;
+	      if (c == '[')
+		{
+		  Lisp_Object tmp;
+		  tmp = read_vector (readcharfun);
+		  if (XVECTOR (tmp)->size != SUB_CHAR_TABLE_STANDARD_SLOTS)
+		    error ("Invalid size char-table");
+		  XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+		  XCHAR_TABLE (tmp)->top = Qnil;
+		  return tmp;
+		}
+	      Fsignal (Qinvalid_read_syntax,
+		       Fcons (make_string ("#^^", 3), Qnil));
+	    }
 	  Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#^", 2), Qnil));
 	}
       if (c == '&')
diff -r ed53084a1655 -r c19c552c486f src/print.c
--- a/src/print.c	Mon Apr 07 07:12:13 1997 +0000
+++ b/src/print.c	Mon Apr 07 07:12:13 1997 +0000
@@ -1258,6 +1258,8 @@
 		 character slots.  But we add #^ as a prefix.  */
 	      PRINTCHAR ('#');
 	      PRINTCHAR ('^');
+	      if (SUB_CHAR_TABLE_P (obj))
+		PRINTCHAR ('^');
 	      size &= PSEUDOVECTOR_SIZE_MASK;
 	    }
 	  if (size & PSEUDOVECTOR_FLAG)