Commit 1387d54e authored by Karl Heuer's avatar Karl Heuer

(F*_property_change): Typecheck limit argument.

parent fbe58183
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment