Support spans-at-region-prop.

1 files changed, 4 insertions, 0 deletions

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))