Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1387d54e
Commit
1387d54e
authored
Apr 25, 1994
by
Karl Heuer
Browse files
(F*_property_change): Typecheck limit argument.
parent
fbe58183
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
0 deletions
+12
-0
src/textprop.c
src/textprop.c
+12
-0
No files found.
src/textprop.c
View file @
1387d54e
...
...
@@ -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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment