From 1387d54e38a905db73f8b8a17e4d6ae569d88113 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 25 Apr 1994 20:30:56 +0000 Subject: [PATCH] (F*_property_change): Typecheck limit argument. --- src/textprop.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/textprop.c b/src/textprop.c index e293eeadb6e..5f78ab95cad 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -601,6 +601,9 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.") 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 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.") 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 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.") 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 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.") 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; -- 2.39.5