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
46bb7c2b
Commit
46bb7c2b
authored
Jul 17, 1994
by
Richard M. Stallman
Browse files
(Fget_text_property): Simplify using Ftext_properties_at.
parent
a6ac02af
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
18 deletions
+2
-18
src/textprop.c
src/textprop.c
+2
-18
No files found.
src/textprop.c
View file @
46bb7c2b
...
...
@@ -501,25 +501,9 @@ OBJECT is optional and defaults to the current buffer.\n\
If POSITION is at the end of OBJECT, the value is nil."
)
(
pos
,
prop
,
object
)
Lisp_Object
pos
,
object
;
register
Lisp_Object
prop
;
Lisp_Object
prop
;
{
register
INTERVAL
i
;
register
Lisp_Object
tail
;
if
(
NILP
(
object
))
XSET
(
object
,
Lisp_Buffer
,
current_buffer
);
i
=
validate_interval_range
(
object
,
&
pos
,
&
pos
,
soft
);
if
(
NULL_INTERVAL_P
(
i
))
return
Qnil
;
/* If POS is at the end of the interval,
it means it's the end of OBJECT.
There are no properties at the very end,
since no character follows. */
if
(
XINT
(
pos
)
==
LENGTH
(
i
)
+
i
->
position
)
return
Qnil
;
return
textget
(
i
->
plist
,
prop
);
return
textget
(
Ftext_properties_at
(
pos
,
object
),
prop
);
}
DEFUN
(
"get-char-property"
,
Fget_char_property
,
Sget_char_property
,
2
,
3
,
0
,
...
...
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