diff options
| -rw-r--r-- | span-extent.el | 9 |
1 files changed, 9 insertions, 0 deletions
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)) |