From 9a593927e9b622967989ba33633a5ac07ebb7858 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sat, 8 Jun 2002 20:25:31 +0000 Subject: (Foverlay_get): Use lookup_char_property. --- src/buffer.c | 22 +--------------------- 1 file changed, 1 insertion(+), 21 deletions(-) diff --git a/src/buffer.c b/src/buffer.c index 103715c80c..6af8b39d3b 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, -- cgit v1.2.3