mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

(Fget_text_property): Simplify using Ftext_properties_at.

Browse source
This commit is contained in:
Richard M. Stallman 1994-07-17 23:53:10 +00:00
parent a6ac02afc3
commit 46bb7c2b49
1 changed files with 2 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/textprop.c
View file

@ -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,