Add span-object, mapcar-spans

1 files changed, 8 insertions, 1 deletions

diff --git a/generic/span-extent.el b/generic/span-extent.el
index 58494a48..d80848d7 100644
--- a/generic/span-extent.el
+++ b/generic/span-extent.el
@@ -62,9 +62,13 @@
   "Delete SPAN."
   (delete-extent span))
 
+(defsubst mapcar-spans (fn start end prop &optional val)
+  "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 delete-spans (start end prop)
   "Delete all spans between START and END with property PROP set."
-  (mapcar-extents 'delete-extent nil (current-buffer) start end  nil prop))
+  (mapcar-spans 'delete-extent start end prop))
 
 (defsubst span-at (pt prop)
   "Return the smallest SPAN at point PT with property PROP."
@@ -101,4 +105,7 @@ A span is before PT if it covers the character before PT."
   "Function added for FSF Emacs compatibility.  Do nothing here."
   nil)
 
+(defalias 'span-object 'extent-object)
+  
+
 (provide 'span-extent)