diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/span-extent.el | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/generic/span-extent.el b/generic/span-extent.el index 8f72bead..816a7f8a 100644 --- a/generic/span-extent.el +++ b/generic/span-extent.el @@ -101,6 +101,27 @@ A span is before PT if it covers the character before PT." (defalias 'span-string 'extent-string) ;Pierre: new untility functions for "holes" +(defsubst make-detached-span () + "Return the buffer owning span." + (make-extent nil nil) + ) + + +(defsubst span-buffer (span) + "Return the buffer owning span." + (extent-buffer span) + ) + +(defsubst span-detached-p (span) + "is this span detached? nil for no, t for yes" + (extent-detached-p span) +) + +(defsubst set-span-face (span face) + "set the face of a span" + (set-extent-face span face) +) + (defsubst fold-spans (FUNCTION &optional OBJECT FROM TO MAPARG FLAGS PROPERTY VALUE) "map on span, see map-extent on xemacs" (map-extents FUNCTION OBJECT FROM TO MAPARG FLAGS PROPERTY VALUE) |