diff options
| author | Healfdene Goguen | 1998-06-10 14:01:48 +0000 |
|---|---|---|
| committer | Healfdene Goguen | 1998-06-10 14:01:48 +0000 |
| commit | a9038ca86988dd4ae5ab2ea882f8699b01e4dad7 (patch) | |
| tree | 53bbb639a88fe0d7d375ba0e274907b50f01270d | |
| parent | 58450f52a0cf9ef64f2545bcca9a594d52bfeff6 (diff) | |
Wrote generic span functions for making spans read-only or read-write.
| -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)) |