From fdb3887417c045f58f1f8d0acbcd4c83c419bd76 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 3 Aug 2010 13:35:32 +0000 Subject: span-mapcar-spans-inorder: added for pg-movie production --- lib/span.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib') diff --git a/lib/span.el b/lib/span.el index e68ccb47..32967c78 100644 --- a/lib/span.el +++ b/lib/span.el @@ -99,6 +99,12 @@ "Apply function FN to spans between START and END with property PROP." (mapc fn (spans-at-region-prop start end prop))) +(defsubst span-mapcar-spans-inorder (fn start end prop) + "Map function FN over spans between START and END with property PROP." + (mapcar fn + (sort (spans-at-region-prop start end prop) + 'span-lt))) + (defun span-at-before (pt prop) "Return the smallest SPAN at before PT with property PROP. A span is before PT if it begins before the character before PT." -- cgit v1.2.3