# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767305856 0
# Node ID b6b93953cc83144d3a29089819b5ecd3cc8d8bc8
# Parent  cb7cc8672ea99d958a510dc93357f4e56d1e2654
(F*_property_change): Typecheck limit argument.

diff -r cb7cc8672ea9 -r b6b93953cc83 src/textprop.c
--- a/src/textprop.c	Mon Apr 25 19:55:45 1994 +0000
+++ b/src/textprop.c	Mon Apr 25 20:30:56 1994 +0000
@@ -601,6 +601,9 @@
   if (NILP (object))
     XSET (object, Lisp_Buffer, current_buffer);
 
+  if (!NILP (limit))
+    CHECK_NUMBER_COERCE_MARKER (limit, 0);
+
   i = validate_interval_range (object, &pos, &pos, soft);
   if (NULL_INTERVAL_P (i))
     return limit;
@@ -670,6 +673,9 @@
   if (NILP (object))
     XSET (object, Lisp_Buffer, current_buffer);
 
+  if (!NILP (limit))
+    CHECK_NUMBER_COERCE_MARKER (limit, 0);
+
   i = validate_interval_range (object, &pos, &pos, soft);
   if (NULL_INTERVAL_P (i))
     return limit;
@@ -707,6 +713,9 @@
   if (NILP (object))
     XSET (object, Lisp_Buffer, current_buffer);
 
+  if (!NILP (limit))
+    CHECK_NUMBER_COERCE_MARKER (limit, 0);
+
   i = validate_interval_range (object, &pos, &pos, soft);
   if (NULL_INTERVAL_P (i))
     return limit;
@@ -750,6 +759,9 @@
   if (NILP (object))
     XSET (object, Lisp_Buffer, current_buffer);
 
+  if (!NILP (limit))
+    CHECK_NUMBER_COERCE_MARKER (limit, 0);
+
   i = validate_interval_range (object, &pos, &pos, soft);
   if (NULL_INTERVAL_P (i))
     return limit;