diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-25 20:30:56 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-25 20:30:56 +0000 |
| commit | ed4d32e24adf8759e33466729a83784bb022f35b (patch) | |
| tree | 3f6971b0633787b4bbae4f7fd2597c45cb022a1f /src/textprop.c | |
| parent | e0625aafdc62719ace7329d4ca0ec5d91a081ec7 (diff) | |
| download | emacs-ed4d32e24adf8759e33466729a83784bb022f35b.tar.gz | |
(F*_property_change): Typecheck limit argument.
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 12 |
1 files changed, 12 insertions, 0 deletions
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; |