From: Colin Walters <walters@gnu.org>
Date: Sat, 8 Jun 2002 20:25:31 +0000 (+0000)
Subject: (Foverlay_get): Use lookup_char_property.
X-Git-Tag: ttn-vms-21-2-B4~14732
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a593927e9b622967989ba33633a5ac07ebb7858;p=emacs.git

(Foverlay_get): Use lookup_char_property.
---

diff --git a/src/buffer.c b/src/buffer.c
index 103715c80c8..6af8b39d3b5 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3912,28 +3912,8 @@ DEFUN ("overlay-get", Foverlay_get, Soverlay_get, 2, 2, 0,
      (overlay, prop)
      Lisp_Object overlay, prop;
 {
-  Lisp_Object plist, fallback;
-
   CHECK_OVERLAY (overlay);
-
-  fallback = Qnil;
-
-  for (plist = XOVERLAY (overlay)->plist;
-       CONSP (plist) && CONSP (XCDR (plist));
-       plist = XCDR (XCDR (plist)))
-    {
-      if (EQ (XCAR (plist), prop))
-	return XCAR (XCDR (plist));
-      else if (EQ (XCAR (plist), Qcategory))
-	{
-	  Lisp_Object tem;
-	  tem = Fcar (Fcdr (plist));
-	  if (SYMBOLP (tem))
-	    fallback = Fget (tem, prop);
-	}
-    }
-
-  return fallback;
+  return lookup_char_property (XOVERLAY (overlay)->plist, prop, 0);
 }
 
 DEFUN ("overlay-put", Foverlay_put, Soverlay_put, 3, 3, 0,