blob: 92b57a89801e2035b4c83a23ca2456a978129c72 (
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
|
;; 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 abstract ones
;;
(defun span-property-safe (span name)
"Like span-property, but return nil if SPAN is nil."
(and span (span-property span name)))
(provide 'span)
;; span.el ends here.
|
