From d1be9f0f0df6bcefbfa9c874995c067c2f0100c4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 11 Nov 1995 20:28:26 +0000
Subject: [PATCH] (check_syntax_table): Check the purpose slot. Use
 Qsyntax_table_p for the error message.

(Fmodify_syntax_entry): Don't fail to init MATCH.
---
 src/syntax.c | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/syntax.c b/src/syntax.c
index 1a74345ca0d..6a75c16ac48 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -126,10 +126,11 @@ static void
 check_syntax_table (obj)
      Lisp_Object obj;
 {
-  CHECK_CHAR_TABLE (obj, 0);
+  if (!(CHAR_TABLE_P (obj)
+	&& XCHAR_TABLE (obj)->purpose == Qsyntax_table))
+    wrong_type_argument (Qsyntax_table_p, obj);
 }   
 
-
 DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0,
   "Return the current syntax table.\n\
 This is the one specified by the current buffer.")
@@ -338,8 +339,12 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
     }
 
   if (*p)
-    XSETINT (match, *p++);
-  if (XFASTINT (match) == ' ')
+    {
+      XSETINT (match, *p++);
+      if (XFASTINT (match) == ' ')
+	match = Qnil;
+    }
+  else
     match = Qnil;
 
   val = (int) code;
-- 
2.39.2