Mercurial > emacs
diff src/textprop.c @ 7092:b6b93953cc83
(F*_property_change): Typecheck limit argument.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 25 Apr 1994 20:30:56 +0000 |
| parents | a2bccbc870e6 |
| children | cd81dba38a49 |
line wrap: on
line diff
--- 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;