From 6e660a5d3ed11c7093e62c9a3a532c03b0fc953a Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 17 Jan 2008 13:04:54 +0000
Subject: Support spans-at-region-prop.

---
 lib/span-extent.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib')

diff --git a/lib/span-extent.el b/lib/span-extent.el
index 481933fc..8af787c7 100644
--- a/lib/span-extent.el
+++ b/lib/span-extent.el
@@ -56,6 +56,10 @@
   "Apply function FN to all spans between START and END with property PROP set"
   (mapcar-extents fn nil (current-buffer) start end  nil prop val))
 
+(defsubst spans-at-region-prop (start end prop &optional val)
+  "Return a list of the spans in START END with PROP [set to VAL]."
+  (extent-list (current-buffer) start end nil prop val))
+
 (defsubst span-at (pt prop)
   "Return the smallest SPAN at point PT with property PROP."
   (extent-at pt nil prop))
-- 
cgit v1.2.3