diff options
| author | David Aspinall | 1998-09-03 13:51:41 +0000 |
|---|---|---|
| committer | David Aspinall | 1998-09-03 13:51:41 +0000 |
| commit | 8b836f84d70fcea59ffa186f6809ebc6765b8a5f (patch) | |
| tree | 8dc74b560cadf3b6e847e547776ccd0015dfa7f1 /span-extent.el | |
| parent | abbe57d8b69d79e9eb6899f182379d9c6c4fdc7f (diff) | |
Renamed for new subdirectory structure
Diffstat (limited to 'span-extent.el')
| -rw-r--r-- | span-extent.el | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/span-extent.el b/span-extent.el deleted file mode 100644 index b49670b7..00000000 --- a/span-extent.el +++ /dev/null @@ -1,79 +0,0 @@ -;;; This file implements spans in terms of extents, for xemacs. -;;; Copyright (C) 1998 LFCS Edinburgh -;;; Author: Healfdene Goguen - -;; Maintainer: LEGO Team <lego@dcs.ed.ac.uk> - -;; $Log$ -;; Revision 2.0 1998/08/11 15:00:13 da -;; New branch -;; -;; 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. -;; -;; Revision 1.2 1998/05/19 15:30:27 hhg -;; Added header and log message. -;; - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Bridging the emacs19/xemacs gulf ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;; Now define "spans" in terms of extents. - -(defsubst make-span (start end) - (make-extent start end)) - -(defsubst detach-span (span) - (detach-extent span)) - -(defsubst set-span-endpoints (span start end) - (set-extent-endpoints span start end)) - -(defsubst set-span-start (span value) - (set-extent-endpoints span value (extent-end-position span))) - -(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)) - -(defsubst set-span-property (span name value) - (set-extent-property span name value)) - -(defsubst delete-span (span) - (delete-extent span)) - -(defsubst delete-spans (start end prop) - (mapcar-extents 'delete-extent nil (current-buffer) start end nil prop)) - -(defsubst span-at (pt prop) - (extent-at pt nil prop)) - -(defsubst span-at-before (pt prop) - (extent-at pt nil prop nil 'before)) - -(defsubst span-start (span) - (extent-start-position span)) - -(defsubst span-end (span) - (extent-end-position span)) - -(defsubst prev-span (span prop) - (extent-at (extent-start-position span) nil prop nil 'before)) - -(defsubst next-span (span prop) - (extent-at (extent-end-position span) nil prop nil 'after)) - - -(provide 'span-extent) |
