# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825192187 0
# Node ID 46ba65e7976cc628bc1bdd98ef6356839a4057c2
# Parent  071940e2a5637ac22ff819e1c78c2e323dc95154
(Fcopy_syntax_table): Set default to nil.
Set the parent only if it was nil.

diff -r 071940e2a563 -r 46ba65e7976c src/syntax.c
--- a/src/syntax.c	Sat Feb 24 10:15:08 1996 +0000
+++ b/src/syntax.c	Sat Feb 24 20:03:07 1996 +0000
@@ -163,7 +163,16 @@
     table = Vstandard_syntax_table;
 
   copy = Fcopy_sequence (table);
-  Fset_char_table_parent (copy, Vstandard_syntax_table);
+
+  /* Only the standard syntax table should have a default element.
+     Other syntax tables should inherit from parents instead.  */
+  XCHAR_TABLE (copy)->defalt = Qnil;
+
+  /* Copied syntax tables should all have parents.
+     If we copied one with no parent, such as the standard syntax table,
+     use the standard syntax table as the copy's parent.  */
+  if (NILP (XCHAR_TABLE (copy)->parent))
+    Fset_char_table_parent (copy, Vstandard_syntax_table);
   return copy;
 }