diff options
author | Colin Walters <[email protected]> | 2002-06-08 20:25:31 +0000 |
---|---|---|
committer | Colin Walters <[email protected]> | 2002-06-08 20:25:31 +0000 |
commit | 9a593927e9b622967989ba33633a5ac07ebb7858 (patch) | |
tree | d9f3f42a8409ecf4eaba5f6997781dc6c168668d | |
parent | 948fe32d3941da4258aa6b2edce62d4ef43c9b78 (diff) |
(Foverlay_get): Use lookup_char_property.
-rw-r--r-- | src/buffer.c | 22 |
1 files changed, 1 insertions, 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, |