aboutsummaryrefslogtreecommitdiff
path: root/generic
diff options
context:
space:
mode:
authorDavid Aspinall2004-08-25 11:28:14 +0000
committerDavid Aspinall2004-08-25 11:28:14 +0000
commit2b1759c642c23de80c28655330124a8385432aec (patch)
treedd173b3eb6b750902c59d5268f89029d571085ea /generic
parentec512d4235f7ef1262118bf415769d42100a40e4 (diff)
Renamed file
Diffstat (limited to 'generic')
-rw-r--r--generic/span.el39
1 files changed, 0 insertions, 39 deletions
diff --git a/generic/span.el b/generic/span.el
deleted file mode 100644
index eb609f39..00000000
--- a/generic/span.el
+++ /dev/null
@@ -1,39 +0,0 @@
-;; span.el Datatype of "spans" for Proof General.
-;;
-;; Copyright (C) 1998 LFCS Edinburgh
-;; Author: Healfdene Goguen
-;; License: GPL (GNU GENERAL PUBLIC LICENSE)
-;;
-;; $Id$
-
-;;
-;; Spans are our abstraction of extents/overlays.
-;;
-(eval-and-compile
- (cond ((string-match "XEmacs" emacs-version)
- (require 'span-extent))
- (t
- (require 'span-overlay))))
-
-;;
-;; Generic functions built on low-level concrete ones.
-;;
-
-(defsubst delete-spans (start end prop)
- "Delete all spans between START and END with property PROP set."
- (mapcar-spans 'delete-span start end prop))
-
-(defsubst span-property-safe (span name)
- "Like span-property, but return nil if SPAN is nil."
- (and span (span-property span name)))
-
-(defsubst set-span-start (span value)
- "Set the start point of SPAN to VALUE."
- (set-span-endpoints span value (span-end span)))
-
-(defsubst set-span-end (span value)
- "Set the end point of SPAN to VALUE."
- (set-span-endpoints span (span-start span) value))
-
-(provide 'span)
-;; span.el ends here.