From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Jul 1994 23:53:10 +0000 (+0000)
Subject: (Fget_text_property): Simplify using Ftext_properties_at.
X-Git-Tag: emacs-19.34~7582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46bb7c2b49a747d2d466fcc979abeab28fd0780d;p=emacs.git

(Fget_text_property): Simplify using Ftext_properties_at.
---

diff --git a/src/textprop.c b/src/textprop.c
index 1f8a0503c93..fc09dc41d81 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -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,