From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Nov 1995 20:28:26 +0000 (+0000)
Subject: (check_syntax_table): Check the purpose slot.
X-Git-Tag: emacs-19.34~2347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1be9f0f0df6bcefbfa9c874995c067c2f0100c4;p=emacs.git

(check_syntax_table): Check the purpose slot.
Use Qsyntax_table_p for the error message.

(Fmodify_syntax_entry): Don't fail to init MATCH.
---

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;