Commit 46bb7c2b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fget_text_property): Simplify using Ftext_properties_at.

parent a6ac02af
...@@ -501,25 +501,9 @@ OBJECT is optional and defaults to the current buffer.\n\ ...@@ -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.") If POSITION is at the end of OBJECT, the value is nil.")
(pos, prop, object) (pos, prop, object)
Lisp_Object pos, object; Lisp_Object pos, object;
register Lisp_Object prop; Lisp_Object prop;
{ {
register INTERVAL i; return textget (Ftext_properties_at (pos, object), prop);
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);
} }
DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0, DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment