From 1613054986704066fc6d6b36f4386e11d5faec12 Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Mon, 16 Feb 2004 18:34:17 +0000
Subject: forgot some functions in span-extent.el. This is like the previous
 commit, for "holes" integration.

---
 generic/span-extent.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

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)
-- 
cgit v1.2.3