blob: 8e2c05f41fe616488f837f860295b512295a8ca9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;; span.el Datatype of "spans" for Proof General.
;;
;; Copyright (C) 1998 LFCS Edinburgh
;; Author: Healfdene Goguen
;; License: GPL (GNU GENERAL PUBLIC LICENSE)
;;
;; $Id$
;; FIXME: NAMESPACE!!!!!!!
;;
;; 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.
|
