blob: 8af787c71efca32881961a2c1f2c6585b3bbc87e (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
;; This file implements spans in terms of extents, for xemacs.
;;
;; Copyright (C) 1998 LFCS Edinburgh
;; Author: Healfdene Goguen
;; Maintainer: David Aspinall <David.Aspinall@ed.ac.uk>
;; License: GPL (GNU GENERAL PUBLIC LICENSE)
;;
;; $Id$
;; XEmacs-Emacs compatibility: define "spans" in terms of extents.
(defsubst span-make (start end)
"Make a span for the range [START, END) in current buffer."
(make-extent start end))
(defsubst span-detach (span)
"Remove SPAN from its buffer."
(detach-extent span))
(defsubst span-set-endpoints (span start end)
"Set the endpoints of SPAN to START, END."
(set-extent-endpoints span start end))
(defsubst span-set-property (span name value)
"Set SPAN's property NAME to VALUE."
(set-extent-property span name value))
(defsubst span-read-only (span)
"Set SPAN to be read only."
(span-set-property span 'read-only t))
(defsubst span-read-write (span)
"Set SPAN to be writeable."
(span-set-property span 'read-only nil))
(defun span-give-warning (&rest args)
"Give a warning message."
(message "You should not edit here!"))
(defun span-write-warning (span)
"Give a warning message when SPAN is changed."
;; FIXME: implement this in XEmacs, perhaps with after-change-functions
(span-set-property span 'read-only nil))
(defsubst span-property (span name)
"Return SPAN's value for property PROPERTY."
(extent-property span name))
(defsubst span-delete (span)
"Delete SPAN."
(let ((predelfn (span-property span 'span-delete-action)))
(and predelfn (funcall predelfn)))
(delete-extent span))
(defsubst span-mapcar-spans (fn start end prop &optional val)
"Apply function FN to all spans between START and END with property PROP set"
(mapcar-extents fn nil (current-buffer) start end nil prop val))
(defsubst spans-at-region-prop (start end prop &optional val)
"Return a list of the spans in START END with PROP [set to VAL]."
(extent-list (current-buffer) start end nil prop val))
(defsubst span-at (pt prop)
"Return the smallest SPAN at point PT with property PROP."
(extent-at pt nil prop))
(defsubst span-at-before (pt prop)
"Return the smallest SPAN at before PT with property PROP.
A span is before PT if it covers the character before PT."
(extent-at pt nil prop nil 'before))
(defsubst span-start (span)
"Return the start position of SPAN, or nil if SPAN is detatched."
(extent-start-position span))
(defsubst span-end (span)
"Return the end position of SPAN, or nil if SPAN is detatched."
(extent-end-position span))
(defsubst prev-span (span prop)
"Return span before SPAN with property PROP."
(extent-at (extent-start-position span) nil prop nil 'before))
(defsubst next-span (span prop)
"Return span after SPAN with property PROP."
(extent-at (extent-end-position span) nil prop nil 'after))
(defsubst span-live-p (span)
"Return non-nil if SPAN is live and in a live buffer."
(and span
(extent-live-p span)
(buffer-live-p (extent-object span))
;; PG 3.4: add third test here to see not detached.
(not (extent-detached-p span))))
(defun span-raise (span)
"Function added for FSF Emacs compatibility. Do nothing here."
nil)
(defalias 'span-object 'extent-object)
(defalias 'span-string 'extent-string)
;Pierre: new utility functions for "holes"
(defsubst make-detached-span ()
(make-extent nil nil)
)
(defsubst span-buffer (span)
"Return the buffer owning span."
(extent-object span)
)
(defsubst span-detached-p (span)
"is this span detached? nil for no, t for yes"
(extent-detached-p span)
)
(defsubst set-span-face (span face)
"set the face of a span"
(set-extent-face span face))
(defsubst fold-spans (function &optional object from to maparg flags property value)
"map on span, see map-extent on xemacs"
(map-extents function object from to maparg flags property value))
(defsubst set-span-properties (span plist)
"see extent-properties"
(set-extent-properties span plist))
(defsubst set-span-keymap (span map)
"Set the keymap of SPAN to MAP"
(set-extent-keymap span map))
;there are more args to extent-at-event
(defsubst span-at-event (event &optional prop)
(extent-at-event event prop))
(provide 'span-extent)
|
