From a9038ca86988dd4ae5ab2ea882f8699b01e4dad7 Mon Sep 17 00:00:00 2001
From: Healfdene Goguen
Date: Wed, 10 Jun 1998 14:01:48 +0000
Subject: Wrote generic span functions for making spans read-only or
 read-write.

---
 span-extent.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/span-extent.el b/span-extent.el
index c33a2fb1..2cfc3df2 100644
--- a/span-extent.el
+++ b/span-extent.el
@@ -5,6 +5,9 @@
 ;; Maintainer: LEGO Team <lego@dcs.ed.ac.uk>
 
 ;; $Log$
+;; Revision 1.4  1998/06/10 14:01:48  hhg
+;; Wrote generic span functions for making spans read-only or read-write.
+;;
 ;; Revision 1.3  1998/06/02 15:36:44  hhg
 ;; Corrected comment about this being for xemacs.
 ;;
@@ -33,6 +36,12 @@
 (defsubst set-span-end (span value)
   (set-extent-endpoints span (extent-start-position span) value))
 
+(defsubst span-read-only (span)
+  (set-span-property span 'read-only t))
+
+(defsubst span-read-write (span)
+  (set-span-property span 'read-only nil))
+
 (defsubst span-property (span name)
   (extent-property span name))
 
-- 
cgit v1.2.3