Mercurial > emacs
annotate src/textprop.c @ 33923:44a439ef63c0
(tooltip-use-echo-area): Doc fix.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 27 Nov 2000 17:50:38 +0000 |
parents | e1dec7e5a57c |
children | ca22422634ac |
rev | line source |
---|---|
1029 | 1 /* Interface code for dealing with text properties. |
30699
f886557e4b2a
(Fget_char_property): Update call to overlays_at.
Miles Bader <miles@gnu.org>
parents:
30678
diff
changeset
|
2 Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000 Free Software Foundation, Inc. |
1029 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
3698 | 8 the Free Software Foundation; either version 2, or (at your option) |
1029 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14088
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14088
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
1029 | 20 |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4649
diff
changeset
|
21 #include <config.h> |
1029 | 22 #include "lisp.h" |
23 #include "intervals.h" | |
24 #include "buffer.h" | |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
25 #include "window.h" |
8962
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
26 |
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
27 #ifndef NULL |
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
28 #define NULL (void *)0 |
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
29 #endif |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
30 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
31 /* Test for membership, allowing for t (actually any non-cons) to mean the |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
32 universal set. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
33 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
34 #define TMEM(sym, set) (CONSP (set) ? ! NILP (Fmemq (sym, set)) : ! NILP (set)) |
1029 | 35 |
36 | |
37 /* NOTES: previous- and next- property change will have to skip | |
38 zero-length intervals if they are implemented. This could be done | |
39 inside next_interval and previous_interval. | |
40 | |
1211 | 41 set_properties needs to deal with the interval property cache. |
42 | |
1029 | 43 It is assumed that for any interval plist, a property appears |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
44 only once on the list. Although some code i.e., remove_properties, |
1029 | 45 handles the more general case, the uniqueness of properties is |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3553
diff
changeset
|
46 necessary for the system to remain consistent. This requirement |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
47 is enforced by the subrs installing properties onto the intervals. */ |
1029 | 48 |
49 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
50 /* Types of hooks. */ |
1029 | 51 Lisp_Object Qmouse_left; |
52 Lisp_Object Qmouse_entered; | |
53 Lisp_Object Qpoint_left; | |
54 Lisp_Object Qpoint_entered; | |
2058
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
55 Lisp_Object Qcategory; |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
56 Lisp_Object Qlocal_map; |
1029 | 57 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
58 /* Visual properties text (including strings) may have. */ |
1029 | 59 Lisp_Object Qforeground, Qbackground, Qfont, Qunderline, Qstipple; |
23729
cf1cbb0e5d5b
(Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents:
22344
diff
changeset
|
60 Lisp_Object Qinvisible, Qread_only, Qintangible, Qmouse_face; |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
61 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
62 /* Sticky properties */ |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
63 Lisp_Object Qfront_sticky, Qrear_nonsticky; |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
64 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
65 /* If o1 is a cons whose cdr is a cons, return non-zero and set o2 to |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
66 the o1's cdr. Otherwise, return zero. This is handy for |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
67 traversing plists. */ |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
68 #define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCDR (o1), CONSP (o2))) |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
69 |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
70 Lisp_Object Vinhibit_point_motion_hooks; |
11131
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
71 Lisp_Object Vdefault_text_properties; |
26872
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
72 Lisp_Object Vtext_property_default_nonsticky; |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
73 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
74 /* verify_interval_modification saves insertion hooks here |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
75 to be run later by report_interval_modification. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
76 Lisp_Object interval_insert_behind_hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
77 Lisp_Object interval_insert_in_front_hooks; |
1029 | 78 |
1055 | 79 /* Extract the interval at the position pointed to by BEGIN from |
80 OBJECT, a string or buffer. Additionally, check that the positions | |
81 pointed to by BEGIN and END are within the bounds of OBJECT, and | |
82 reverse them if *BEGIN is greater than *END. The objects pointed | |
83 to by BEGIN and END may be integers or markers; if the latter, they | |
84 are coerced to integers. | |
1029 | 85 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
86 When OBJECT is a string, we increment *BEGIN and *END |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
87 to make them origin-one. |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
88 |
1029 | 89 Note that buffer points don't correspond to interval indices. |
90 For example, point-max is 1 greater than the index of the last | |
91 character. This difference is handled in the caller, which uses | |
92 the validated points to determine a length, and operates on that. | |
93 Exceptions are Ftext_properties_at, Fnext_property_change, and | |
94 Fprevious_property_change which call this function with BEGIN == END. | |
95 Handle this case specially. | |
96 | |
97 If FORCE is soft (0), it's OK to return NULL_INTERVAL. Otherwise, | |
1055 | 98 create an interval tree for OBJECT if one doesn't exist, provided |
99 the object actually contains text. In the current design, if there | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
100 is no text, there can be no text properties. */ |
1029 | 101 |
102 #define soft 0 | |
103 #define hard 1 | |
104 | |
25000 | 105 INTERVAL |
1029 | 106 validate_interval_range (object, begin, end, force) |
107 Lisp_Object object, *begin, *end; | |
108 int force; | |
109 { | |
110 register INTERVAL i; | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
111 int searchpos; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
112 |
1029 | 113 CHECK_STRING_OR_BUFFER (object, 0); |
114 CHECK_NUMBER_COERCE_MARKER (*begin, 0); | |
115 CHECK_NUMBER_COERCE_MARKER (*end, 0); | |
116 | |
117 /* If we are asked for a point, but from a subr which operates | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
118 on a range, then return nothing. */ |
8907
f7de8b4cb1b8
(validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents:
8856
diff
changeset
|
119 if (EQ (*begin, *end) && begin != end) |
1029 | 120 return NULL_INTERVAL; |
121 | |
122 if (XINT (*begin) > XINT (*end)) | |
123 { | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
124 Lisp_Object n; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
125 n = *begin; |
1029 | 126 *begin = *end; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
127 *end = n; |
1029 | 128 } |
129 | |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
130 if (BUFFERP (object)) |
1029 | 131 { |
132 register struct buffer *b = XBUFFER (object); | |
133 | |
134 if (!(BUF_BEGV (b) <= XINT (*begin) && XINT (*begin) <= XINT (*end) | |
135 && XINT (*end) <= BUF_ZV (b))) | |
136 args_out_of_range (*begin, *end); | |
10312
4bf079c613c6
(validate_interval_range): Use BUF_INTERVALS.
Richard M. Stallman <rms@gnu.org>
parents:
10159
diff
changeset
|
137 i = BUF_INTERVALS (b); |
1029 | 138 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
139 /* If there's no text, there are no properties. */ |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
140 if (BUF_BEGV (b) == BUF_ZV (b)) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
141 return NULL_INTERVAL; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
142 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
143 searchpos = XINT (*begin); |
1029 | 144 } |
145 else | |
146 { | |
147 register struct Lisp_String *s = XSTRING (object); | |
148 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
149 if (! (0 <= XINT (*begin) && XINT (*begin) <= XINT (*end) |
1029 | 150 && XINT (*end) <= s->size)) |
151 args_out_of_range (*begin, *end); | |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
152 XSETFASTINT (*begin, XFASTINT (*begin)); |
3996
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
153 if (begin != end) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
154 XSETFASTINT (*end, XFASTINT (*end)); |
1029 | 155 i = s->intervals; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
156 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
157 if (s->size == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
158 return NULL_INTERVAL; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
159 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
160 searchpos = XINT (*begin); |
1029 | 161 } |
162 | |
163 if (NULL_INTERVAL_P (i)) | |
164 return (force ? create_root_interval (object) : i); | |
165 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
166 return find_interval (i, searchpos); |
1029 | 167 } |
168 | |
169 /* Validate LIST as a property list. If LIST is not a list, then | |
170 make one consisting of (LIST nil). Otherwise, verify that LIST | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
171 is even numbered and thus suitable as a plist. */ |
1029 | 172 |
173 static Lisp_Object | |
174 validate_plist (list) | |
4797
4dd43e41207a
(validate_plist): Add argument declaration for `list'.
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
175 Lisp_Object list; |
1029 | 176 { |
177 if (NILP (list)) | |
178 return Qnil; | |
179 | |
180 if (CONSP (list)) | |
181 { | |
182 register int i; | |
183 register Lisp_Object tail; | |
184 for (i = 0, tail = list; !NILP (tail); i++) | |
3996
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
185 { |
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
186 tail = Fcdr (tail); |
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
187 QUIT; |
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
188 } |
1029 | 189 if (i & 1) |
190 error ("Odd length text property list"); | |
191 return list; | |
192 } | |
193 | |
194 return Fcons (list, Fcons (Qnil, Qnil)); | |
195 } | |
196 | |
197 /* Return nonzero if interval I has all the properties, | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
198 with the same values, of list PLIST. */ |
1029 | 199 |
200 static int | |
201 interval_has_all_properties (plist, i) | |
202 Lisp_Object plist; | |
203 INTERVAL i; | |
204 { | |
25772
1902e7e63fa7
(Fset_text_properties): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
205 register Lisp_Object tail1, tail2, sym1; |
1029 | 206 register int found; |
207 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
208 /* Go through each element of PLIST. */ |
1029 | 209 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1))) |
210 { | |
211 sym1 = Fcar (tail1); | |
212 found = 0; | |
213 | |
214 /* Go through I's plist, looking for sym1 */ | |
215 for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2))) | |
216 if (EQ (sym1, Fcar (tail2))) | |
217 { | |
218 /* Found the same property on both lists. If the | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
219 values are unequal, return zero. */ |
3998
c0560357c84e
Compare the values of text properties using EQ, not Fequal.
Jim Blandy <jimb@redhat.com>
parents:
3996
diff
changeset
|
220 if (! EQ (Fcar (Fcdr (tail1)), Fcar (Fcdr (tail2)))) |
1029 | 221 return 0; |
222 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
223 /* Property has same value on both lists; go to next one. */ |
1029 | 224 found = 1; |
225 break; | |
226 } | |
227 | |
228 if (! found) | |
229 return 0; | |
230 } | |
231 | |
232 return 1; | |
233 } | |
234 | |
235 /* Return nonzero if the plist of interval I has any of the | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
236 properties of PLIST, regardless of their values. */ |
1029 | 237 |
238 static INLINE int | |
239 interval_has_some_properties (plist, i) | |
240 Lisp_Object plist; | |
241 INTERVAL i; | |
242 { | |
243 register Lisp_Object tail1, tail2, sym; | |
244 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
245 /* Go through each element of PLIST. */ |
1029 | 246 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1))) |
247 { | |
248 sym = Fcar (tail1); | |
249 | |
250 /* Go through i's plist, looking for tail1 */ | |
251 for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2))) | |
252 if (EQ (sym, Fcar (tail2))) | |
253 return 1; | |
254 } | |
255 | |
256 return 0; | |
257 } | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
258 |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
259 /* Changing the plists of individual intervals. */ |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
260 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
261 /* Return the value of PROP in property-list PLIST, or Qunbound if it |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
262 has none. */ |
8907
f7de8b4cb1b8
(validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents:
8856
diff
changeset
|
263 static Lisp_Object |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
264 property_value (plist, prop) |
8856
7e9547af43e8
(property_value): Declare args plist, prop.
Richard M. Stallman <rms@gnu.org>
parents:
8762
diff
changeset
|
265 Lisp_Object plist, prop; |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
266 { |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
267 Lisp_Object value; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
268 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
269 while (PLIST_ELT_P (plist, value)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
270 if (EQ (XCAR (plist), prop)) |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
271 return XCAR (value); |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
272 else |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
273 plist = XCDR (value); |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
274 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
275 return Qunbound; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
276 } |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
277 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
278 /* Set the properties of INTERVAL to PROPERTIES, |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
279 and record undo info for the previous values. |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
280 OBJECT is the string or buffer that INTERVAL belongs to. */ |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
281 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
282 static void |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
283 set_properties (properties, interval, object) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
284 Lisp_Object properties, object; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
285 INTERVAL interval; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
286 { |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
287 Lisp_Object sym, value; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
288 |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
289 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
290 { |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
291 /* For each property in the old plist which is missing from PROPERTIES, |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
292 or has a different value in PROPERTIES, make an undo record. */ |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
293 for (sym = interval->plist; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
294 PLIST_ELT_P (sym, value); |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
295 sym = XCDR (value)) |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
296 if (! EQ (property_value (properties, XCAR (sym)), |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
297 XCAR (value))) |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
298 { |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
299 record_property_change (interval->position, LENGTH (interval), |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
300 XCAR (sym), XCAR (value), |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
301 object); |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
302 } |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
303 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
304 /* For each new property that has no value at all in the old plist, |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
305 make an undo record binding it to nil, so it will be removed. */ |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
306 for (sym = properties; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
307 PLIST_ELT_P (sym, value); |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
308 sym = XCDR (value)) |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
309 if (EQ (property_value (interval->plist, XCAR (sym)), Qunbound)) |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
310 { |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
311 record_property_change (interval->position, LENGTH (interval), |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
312 XCAR (sym), Qnil, |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
313 object); |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
314 } |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
315 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
316 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
317 /* Store new properties. */ |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
318 interval->plist = Fcopy_sequence (properties); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
319 } |
1029 | 320 |
321 /* Add the properties of PLIST to the interval I, or set | |
322 the value of I's property to the value of the property on PLIST | |
323 if they are different. | |
324 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
325 OBJECT should be the string or buffer the interval is in. |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
326 |
1029 | 327 Return nonzero if this changes I (i.e., if any members of PLIST |
328 are actually added to I's plist) */ | |
329 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
330 static int |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
331 add_properties (plist, i, object) |
1029 | 332 Lisp_Object plist; |
333 INTERVAL i; | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
334 Lisp_Object object; |
1029 | 335 { |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
336 Lisp_Object tail1, tail2, sym1, val1; |
1029 | 337 register int changed = 0; |
338 register int found; | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
339 struct gcpro gcpro1, gcpro2, gcpro3; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
340 |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
341 tail1 = plist; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
342 sym1 = Qnil; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
343 val1 = Qnil; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
344 /* No need to protect OBJECT, because we can GC only in the case |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
345 where it is a buffer, and live buffers are always protected. |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
346 I and its plist are also protected, via OBJECT. */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
347 GCPRO3 (tail1, sym1, val1); |
1029 | 348 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
349 /* Go through each element of PLIST. */ |
1029 | 350 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1))) |
351 { | |
352 sym1 = Fcar (tail1); | |
353 val1 = Fcar (Fcdr (tail1)); | |
354 found = 0; | |
355 | |
356 /* Go through I's plist, looking for sym1 */ | |
357 for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2))) | |
358 if (EQ (sym1, Fcar (tail2))) | |
359 { | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
360 /* No need to gcpro, because tail2 protects this |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
361 and it must be a cons cell (we get an error otherwise). */ |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
362 register Lisp_Object this_cdr; |
1029 | 363 |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
364 this_cdr = Fcdr (tail2); |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
365 /* Found the property. Now check its value. */ |
1029 | 366 found = 1; |
367 | |
368 /* The properties have the same value on both lists. | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
369 Continue to the next property. */ |
3998
c0560357c84e
Compare the values of text properties using EQ, not Fequal.
Jim Blandy <jimb@redhat.com>
parents:
3996
diff
changeset
|
370 if (EQ (val1, Fcar (this_cdr))) |
1029 | 371 break; |
372 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
373 /* Record this change in the buffer, for undo purposes. */ |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
374 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
375 { |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
376 record_property_change (i->position, LENGTH (i), |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
377 sym1, Fcar (this_cdr), object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
378 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
379 |
1029 | 380 /* I's property has a different value -- change it */ |
381 Fsetcar (this_cdr, val1); | |
382 changed++; | |
383 break; | |
384 } | |
385 | |
386 if (! found) | |
387 { | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
388 /* Record this change in the buffer, for undo purposes. */ |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
389 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
390 { |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
391 record_property_change (i->position, LENGTH (i), |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
392 sym1, Qnil, object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
393 } |
1029 | 394 i->plist = Fcons (sym1, Fcons (val1, i->plist)); |
395 changed++; | |
396 } | |
397 } | |
398 | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
399 UNGCPRO; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
400 |
1029 | 401 return changed; |
402 } | |
403 | |
404 /* For any members of PLIST which are properties of I, remove them | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
405 from I's plist. |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
406 OBJECT is the string or buffer containing I. */ |
1029 | 407 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
408 static int |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
409 remove_properties (plist, i, object) |
1029 | 410 Lisp_Object plist; |
411 INTERVAL i; | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
412 Lisp_Object object; |
1029 | 413 { |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
414 register Lisp_Object tail1, tail2, sym, current_plist; |
1029 | 415 register int changed = 0; |
416 | |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
417 current_plist = i->plist; |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
418 /* Go through each element of plist. */ |
1029 | 419 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1))) |
420 { | |
421 sym = Fcar (tail1); | |
422 | |
423 /* First, remove the symbol if its at the head of the list */ | |
424 while (! NILP (current_plist) && EQ (sym, Fcar (current_plist))) | |
425 { | |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
426 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
427 { |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
428 record_property_change (i->position, LENGTH (i), |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
429 sym, Fcar (Fcdr (current_plist)), |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
430 object); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
431 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
432 |
1029 | 433 current_plist = Fcdr (Fcdr (current_plist)); |
434 changed++; | |
435 } | |
436 | |
437 /* Go through i's plist, looking for sym */ | |
438 tail2 = current_plist; | |
439 while (! NILP (tail2)) | |
440 { | |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
441 register Lisp_Object this; |
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
442 this = Fcdr (Fcdr (tail2)); |
1029 | 443 if (EQ (sym, Fcar (this))) |
444 { | |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
445 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
446 { |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
447 record_property_change (i->position, LENGTH (i), |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
448 sym, Fcar (Fcdr (this)), object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
449 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
450 |
1029 | 451 Fsetcdr (Fcdr (tail2), Fcdr (Fcdr (this))); |
452 changed++; | |
453 } | |
454 tail2 = this; | |
455 } | |
456 } | |
457 | |
458 if (changed) | |
459 i->plist = current_plist; | |
460 return changed; | |
461 } | |
462 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
463 #if 0 |
1029 | 464 /* Remove all properties from interval I. Return non-zero |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
465 if this changes the interval. */ |
1029 | 466 |
467 static INLINE int | |
468 erase_properties (i) | |
469 INTERVAL i; | |
470 { | |
471 if (NILP (i->plist)) | |
472 return 0; | |
473 | |
474 i->plist = Qnil; | |
475 return 1; | |
476 } | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
477 #endif |
1029 | 478 |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
479 /* Returns the interval of POSITION in OBJECT. |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
480 POSITION is BEG-based. */ |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
481 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
482 INTERVAL |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
483 interval_of (position, object) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
484 int position; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
485 Lisp_Object object; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
486 { |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
487 register INTERVAL i; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
488 int beg, end; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
489 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
490 if (NILP (object)) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
491 XSETBUFFER (object, current_buffer); |
20955 | 492 else if (EQ (object, Qt)) |
493 return NULL_INTERVAL; | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
494 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
495 CHECK_STRING_OR_BUFFER (object, 0); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
496 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
497 if (BUFFERP (object)) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
498 { |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
499 register struct buffer *b = XBUFFER (object); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
500 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
501 beg = BUF_BEGV (b); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
502 end = BUF_ZV (b); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
503 i = BUF_INTERVALS (b); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
504 } |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
505 else |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
506 { |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
507 register struct Lisp_String *s = XSTRING (object); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
508 |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
509 beg = 0; |
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
510 end = s->size; |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
511 i = s->intervals; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
512 } |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
513 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
514 if (!(beg <= position && position <= end)) |
18736
e5e6647d4883
(interval_of): Convert args_out_of_range arguments to Lisp_Integer.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
515 args_out_of_range (make_number (position), make_number (position)); |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
516 if (beg == end || NULL_INTERVAL_P (i)) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
517 return NULL_INTERVAL; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
518 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
519 return find_interval (i, position); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
520 } |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
521 |
1029 | 522 DEFUN ("text-properties-at", Ftext_properties_at, |
523 Stext_properties_at, 1, 2, 0, | |
20522
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
524 "Return the list of properties of the character at POSITION in OBJECT.\n\ |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
525 OBJECT is the string or buffer to look for the properties in;\n\ |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
526 nil means the current buffer.\n\ |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
527 If POSITION is at the end of OBJECT, the value is nil.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
528 (position, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
529 Lisp_Object position, object; |
1029 | 530 { |
531 register INTERVAL i; | |
532 | |
533 if (NILP (object)) | |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
534 XSETBUFFER (object, current_buffer); |
1029 | 535 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
536 i = validate_interval_range (object, &position, &position, soft); |
1029 | 537 if (NULL_INTERVAL_P (i)) |
538 return Qnil; | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
539 /* If POSITION is at the end of the interval, |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
540 it means it's the end of OBJECT. |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
541 There are no properties at the very end, |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
542 since no character follows. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
543 if (XINT (position) == LENGTH (i) + i->position) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
544 return Qnil; |
1029 | 545 |
546 return i->plist; | |
547 } | |
548 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
549 DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0, |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
550 "Return the value of POSITION's property PROP, in OBJECT.\n\ |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
551 OBJECT is optional and defaults to the current buffer.\n\ |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
552 If POSITION is at the end of OBJECT, the value is nil.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
553 (position, prop, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
554 Lisp_Object position, object; |
8271
e8556db1b7f3
(Fget_text_property): Simplify using Ftext_properties_at.
Richard M. Stallman <rms@gnu.org>
parents:
7773
diff
changeset
|
555 Lisp_Object prop; |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
556 { |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
557 return textget (Ftext_properties_at (position, object), prop); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
558 } |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
559 |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
560 /* Return the value of POSITION's property PROP, in OBJECT. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
561 OBJECT is optional and defaults to the current buffer. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
562 If OVERLAY is non-0, then in the case that the returned property is from |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
563 an overlay, the overlay found is returned in *OVERLAY, otherwise nil is |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
564 returned in *OVERLAY. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
565 If POSITION is at the end of OBJECT, the value is nil. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
566 If OBJECT is a buffer, then overlay properties are considered as well as |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
567 text properties. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
568 If OBJECT is a window, then that window's buffer is used, but |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
569 window-specific overlays are considered only if they are associated |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
570 with OBJECT. */ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
571 Lisp_Object |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
572 get_char_property_and_overlay (position, prop, object, overlay) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
573 Lisp_Object position, object; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
574 register Lisp_Object prop; |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
575 Lisp_Object *overlay; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
576 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
577 struct window *w = 0; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
578 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
579 CHECK_NUMBER_COERCE_MARKER (position, 0); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
580 |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
581 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
582 XSETBUFFER (object, current_buffer); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
583 |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
584 if (WINDOWP (object)) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
585 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
586 w = XWINDOW (object); |
8907
f7de8b4cb1b8
(validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents:
8856
diff
changeset
|
587 object = w->buffer; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
588 } |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
589 if (BUFFERP (object)) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
590 { |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
591 int posn = XINT (position); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
592 int noverlays; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
593 Lisp_Object *overlay_vec, tem; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
594 int next_overlay; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
595 int len; |
12641
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
596 struct buffer *obuf = current_buffer; |
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
597 |
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
598 set_buffer_temp (XBUFFER (object)); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
599 |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
600 /* First try with room for 40 overlays. */ |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
601 len = 40; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
602 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object)); |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
603 |
8962
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
604 noverlays = overlays_at (posn, 0, &overlay_vec, &len, |
30699
f886557e4b2a
(Fget_char_property): Update call to overlays_at.
Miles Bader <miles@gnu.org>
parents:
30678
diff
changeset
|
605 &next_overlay, NULL, 0); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
606 |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
607 /* If there are more than 40, |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
608 make enough space for all, and try again. */ |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
609 if (noverlays > len) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
610 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
611 len = noverlays; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
612 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object)); |
8962
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
613 noverlays = overlays_at (posn, 0, &overlay_vec, &len, |
30699
f886557e4b2a
(Fget_char_property): Update call to overlays_at.
Miles Bader <miles@gnu.org>
parents:
30678
diff
changeset
|
614 &next_overlay, NULL, 0); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
615 } |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
616 noverlays = sort_overlays (overlay_vec, noverlays, w); |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
617 |
12641
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
618 set_buffer_temp (obuf); |
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
619 |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
620 /* Now check the overlays in order of decreasing priority. */ |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
621 while (--noverlays >= 0) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
622 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
623 tem = Foverlay_get (overlay_vec[noverlays], prop); |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
624 if (!NILP (tem)) |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
625 { |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
626 if (overlay) |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
627 /* Return the overlay we got the property from. */ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
628 *overlay = overlay_vec[noverlays]; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
629 return tem; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
630 } |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
631 } |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
632 } |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
633 |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
634 if (overlay) |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
635 /* Indicate that the return value is not from an overlay. */ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
636 *overlay = Qnil; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
637 |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
638 /* Not a buffer, or no appropriate overlay, so fall through to the |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
639 simpler case. */ |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
640 return Fget_text_property (position, prop, object); |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
641 } |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
642 |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
643 DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0, |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
644 "Return the value of POSITION's property PROP, in OBJECT.\n\ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
645 OBJECT is optional and defaults to the current buffer.\n\ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
646 If POSITION is at the end of OBJECT, the value is nil.\n\ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
647 If OBJECT is a buffer, then overlay properties are considered as well as\n\ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
648 text properties.\n\ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
649 If OBJECT is a window, then that window's buffer is used, but window-specific\n\ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
650 overlays are considered only if they are associated with OBJECT.") |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
651 (position, prop, object) |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
652 Lisp_Object position, object; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
653 register Lisp_Object prop; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
654 { |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
655 return get_char_property_and_overlay (position, prop, object, 0); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
656 } |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
657 |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
658 DEFUN ("next-char-property-change", Fnext_char_property_change, |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
659 Snext_char_property_change, 1, 2, 0, |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
660 "Return the position of next text property or overlay change.\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
661 This scans characters forward from POSITION in OBJECT till it finds\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
662 a change in some text property, or the beginning or end of an overlay,\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
663 and returns the position of that.\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
664 If none is found, the function returns (point-max).\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
665 \n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
666 If the optional third argument LIMIT is non-nil, don't search\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
667 past position LIMIT; return LIMIT if nothing is found before LIMIT.") |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
668 (position, limit) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
669 Lisp_Object position, limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
670 { |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
671 Lisp_Object temp; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
672 |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
673 temp = Fnext_overlay_change (position); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
674 if (! NILP (limit)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
675 { |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
676 CHECK_NUMBER (limit, 2); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
677 if (XINT (limit) < XINT (temp)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
678 temp = limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
679 } |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
680 return Fnext_property_change (position, Qnil, temp); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
681 } |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
682 |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
683 DEFUN ("previous-char-property-change", Fprevious_char_property_change, |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
684 Sprevious_char_property_change, 1, 2, 0, |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
685 "Return the position of previous text property or overlay change.\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
686 Scans characters backward from POSITION in OBJECT till it finds\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
687 a change in some text property, or the beginning or end of an overlay,\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
688 and returns the position of that.\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
689 If none is found, the function returns (point-max).\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
690 \n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
691 If the optional third argument LIMIT is non-nil, don't search\n\ |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
692 past position LIMIT; return LIMIT if nothing is found before LIMIT.") |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
693 (position, limit) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
694 Lisp_Object position, limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
695 { |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
696 Lisp_Object temp; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
697 |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
698 temp = Fprevious_overlay_change (position); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
699 if (! NILP (limit)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
700 { |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
701 CHECK_NUMBER (limit, 2); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
702 if (XINT (limit) > XINT (temp)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
703 temp = limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
704 } |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
705 return Fprevious_property_change (position, Qnil, temp); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
706 } |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
707 |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
708 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
709 DEFUN ("next-single-char-property-change", Fnext_single_char_property_change, |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
710 Snext_single_char_property_change, 2, 4, 0, |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
711 "Return the position of next text property or overlay change for a specific property.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
712 Scans characters forward from POSITION till it finds\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
713 a change in the PROP property, then returns the position of the change.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
714 The optional third argument OBJECT is the string or buffer to scan.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
715 The property values are compared with `eq'.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
716 Return nil if the property is constant all the way to the end of OBJECT.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
717 If the value is non-nil, it is a position greater than POSITION, never equal.\n\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
718 If the optional fourth argument LIMIT is non-nil, don't search\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
719 past position LIMIT; return LIMIT if nothing is found before LIMIT.") |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
720 (position, prop, object, limit) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
721 Lisp_Object prop, position, object, limit; |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
722 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
723 if (STRINGP (object)) |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
724 { |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
725 position = Fnext_single_property_change (position, prop, object, limit); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
726 if (NILP (position)) |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
727 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
728 if (NILP (limit)) |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
729 position = make_number (XSTRING (object)->size); |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
730 else |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
731 position = limit; |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
732 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
733 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
734 else |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
735 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
736 Lisp_Object initial_value, value; |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
737 int count = specpdl_ptr - specpdl; |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
738 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
739 if (! NILP (object)) |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
740 CHECK_BUFFER (object, 0); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
741 |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
742 if (BUFFERP (object) && current_buffer != XBUFFER (object)) |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
743 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
744 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
745 Fset_buffer (object); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
746 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
747 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
748 initial_value = Fget_char_property (position, prop, object); |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
749 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
750 if (NILP (limit)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
751 XSETFASTINT (limit, BUF_ZV (current_buffer)); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
752 else |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
753 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
754 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
755 for (;;) |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
756 { |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
757 position = Fnext_char_property_change (position, limit); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
758 if (XFASTINT (position) >= XFASTINT (limit)) { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
759 position = limit; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
760 break; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
761 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
762 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
763 value = Fget_char_property (position, prop, object); |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
764 if (!EQ (value, initial_value)) |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
765 break; |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
766 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
767 |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
768 unbind_to (count, Qnil); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
769 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
770 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
771 return position; |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
772 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
773 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
774 DEFUN ("previous-single-char-property-change", |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
775 Fprevious_single_char_property_change, |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
776 Sprevious_single_char_property_change, 2, 4, 0, |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
777 "Return the position of previous text property or overlay change for a specific property.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
778 Scans characters backward from POSITION till it finds\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
779 a change in the PROP property, then returns the position of the change.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
780 The optional third argument OBJECT is the string or buffer to scan.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
781 The property values are compared with `eq'.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
782 Return nil if the property is constant all the way to the start of OBJECT.\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
783 If the value is non-nil, it is a position less than POSITION, never equal.\n\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
784 If the optional fourth argument LIMIT is non-nil, don't search\n\ |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
785 back past position LIMIT; return LIMIT if nothing is found before LIMIT.") |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
786 (position, prop, object, limit) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
787 Lisp_Object prop, position, object, limit; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
788 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
789 if (STRINGP (object)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
790 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
791 position = Fprevious_single_property_change (position, prop, object, limit); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
792 if (NILP (position)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
793 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
794 if (NILP (limit)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
795 position = make_number (XSTRING (object)->size); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
796 else |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
797 position = limit; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
798 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
799 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
800 else |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
801 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
802 int count = specpdl_ptr - specpdl; |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
803 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
804 if (! NILP (object)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
805 CHECK_BUFFER (object, 0); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
806 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
807 if (BUFFERP (object) && current_buffer != XBUFFER (object)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
808 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
809 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
810 Fset_buffer (object); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
811 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
812 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
813 if (NILP (limit)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
814 XSETFASTINT (limit, BUF_BEGV (current_buffer)); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
815 else |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
816 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
817 |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
818 if (XFASTINT (position) <= XFASTINT (limit)) |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
819 position = limit; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
820 else |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
821 { |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
822 Lisp_Object initial_value = |
30678
1137a24ee515
(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
Ken Raeburn <raeburn@raeburn.org>
parents:
30379
diff
changeset
|
823 Fget_char_property (make_number (XFASTINT (position) - 1), |
1137a24ee515
(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
Ken Raeburn <raeburn@raeburn.org>
parents:
30379
diff
changeset
|
824 prop, object); |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
825 |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
826 for (;;) |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
827 { |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
828 position = Fprevious_char_property_change (position, limit); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
829 |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
830 if (XFASTINT (position) <= XFASTINT (limit)) |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
831 { |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
832 position = limit; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
833 break; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
834 } |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
835 else |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
836 { |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
837 Lisp_Object value = |
30678
1137a24ee515
(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
Ken Raeburn <raeburn@raeburn.org>
parents:
30379
diff
changeset
|
838 Fget_char_property (make_number (XFASTINT (position) - 1), |
1137a24ee515
(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
Ken Raeburn <raeburn@raeburn.org>
parents:
30379
diff
changeset
|
839 prop, object); |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
840 |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
841 if (!EQ (value, initial_value)) |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
842 break; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
843 } |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
844 } |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
845 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
846 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
847 unbind_to (count, Qnil); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
848 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
849 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
850 return position; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
851 } |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
852 |
1029 | 853 DEFUN ("next-property-change", Fnext_property_change, |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
854 Snext_property_change, 1, 3, 0, |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
855 "Return the position of next property change.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
856 Scans characters forward from POSITION in OBJECT till it finds\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
857 a change in some text property, then returns the position of the change.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
858 The optional second argument OBJECT is the string or buffer to scan.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
859 Return nil if the property is constant all the way to the end of OBJECT.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
860 If the value is non-nil, it is a position greater than POSITION, never equal.\n\n\ |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
861 If the optional third argument LIMIT is non-nil, don't search\n\ |
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
862 past position LIMIT; return LIMIT if nothing is found before LIMIT.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
863 (position, object, limit) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
864 Lisp_Object position, object, limit; |
1029 | 865 { |
866 register INTERVAL i, next; | |
867 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
868 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
869 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
870 |
10962
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
871 if (! NILP (limit) && ! EQ (limit, Qt)) |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
872 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
873 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
874 i = validate_interval_range (object, &position, &position, soft); |
1029 | 875 |
10962
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
876 /* If LIMIT is t, return start of next interval--don't |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
877 bother checking further intervals. */ |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
878 if (EQ (limit, Qt)) |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
879 { |
13265
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
880 if (NULL_INTERVAL_P (i)) |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
881 next = i; |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
882 else |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
883 next = next_interval (i); |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
884 |
11116
73b51ad289e3
(Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents:
10962
diff
changeset
|
885 if (NULL_INTERVAL_P (next)) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
886 XSETFASTINT (position, (STRINGP (object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
887 ? XSTRING (object)->size |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
888 : BUF_ZV (XBUFFER (object)))); |
11116
73b51ad289e3
(Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents:
10962
diff
changeset
|
889 else |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
890 XSETFASTINT (position, next->position); |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
891 return position; |
10962
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
892 } |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
893 |
13265
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
894 if (NULL_INTERVAL_P (i)) |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
895 return limit; |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
896 |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
897 next = next_interval (i); |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
898 |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
899 while (! NULL_INTERVAL_P (next) && intervals_equal (i, next) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
900 && (NILP (limit) || next->position < XFASTINT (limit))) |
1029 | 901 next = next_interval (next); |
902 | |
903 if (NULL_INTERVAL_P (next)) | |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
904 return limit; |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
905 if (! NILP (limit) && !(next->position < XFASTINT (limit))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
906 return limit; |
1029 | 907 |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
908 XSETFASTINT (position, next->position); |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
909 return position; |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
910 } |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
911 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
912 /* Return 1 if there's a change in some property between BEG and END. */ |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
913 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
914 int |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
915 property_change_between_p (beg, end) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
916 int beg, end; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
917 { |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
918 register INTERVAL i, next; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
919 Lisp_Object object, pos; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
920 |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
921 XSETBUFFER (object, current_buffer); |
9321
e6759002383c
(Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents:
9280
diff
changeset
|
922 XSETFASTINT (pos, beg); |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
923 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
924 i = validate_interval_range (object, &pos, &pos, soft); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
925 if (NULL_INTERVAL_P (i)) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
926 return 0; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
927 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
928 next = next_interval (i); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
929 while (! NULL_INTERVAL_P (next) && intervals_equal (i, next)) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
930 { |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
931 next = next_interval (next); |
4614
2c5557903994
(property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents:
4381
diff
changeset
|
932 if (NULL_INTERVAL_P (next)) |
2c5557903994
(property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents:
4381
diff
changeset
|
933 return 0; |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
934 if (next->position >= end) |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
935 return 0; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
936 } |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
937 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
938 if (NULL_INTERVAL_P (next)) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
939 return 0; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
940 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
941 return 1; |
1029 | 942 } |
943 | |
1211 | 944 DEFUN ("next-single-property-change", Fnext_single_property_change, |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
945 Snext_single_property_change, 2, 4, 0, |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
946 "Return the position of next property change for a specific property.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
947 Scans characters forward from POSITION till it finds\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
948 a change in the PROP property, then returns the position of the change.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
949 The optional third argument OBJECT is the string or buffer to scan.\n\ |
5020
94de08fd8a7c
(Fnext_single_property_change): Fix missing \n\.
Richard M. Stallman <rms@gnu.org>
parents:
4986
diff
changeset
|
950 The property values are compared with `eq'.\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
951 Return nil if the property is constant all the way to the end of OBJECT.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
952 If the value is non-nil, it is a position greater than POSITION, never equal.\n\n\ |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
953 If the optional fourth argument LIMIT is non-nil, don't search\n\ |
5645 | 954 past position LIMIT; return LIMIT if nothing is found before LIMIT.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
955 (position, prop, object, limit) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
956 Lisp_Object position, prop, object, limit; |
1211 | 957 { |
958 register INTERVAL i, next; | |
959 register Lisp_Object here_val; | |
960 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
961 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
962 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
963 |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
964 if (!NILP (limit)) |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
965 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
966 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
967 i = validate_interval_range (object, &position, &position, soft); |
1211 | 968 if (NULL_INTERVAL_P (i)) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
969 return limit; |
1211 | 970 |
2762
dd28ed1e1928
* textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents:
2124
diff
changeset
|
971 here_val = textget (i->plist, prop); |
1211 | 972 next = next_interval (i); |
2762
dd28ed1e1928
* textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents:
2124
diff
changeset
|
973 while (! NULL_INTERVAL_P (next) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
974 && EQ (here_val, textget (next->plist, prop)) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
975 && (NILP (limit) || next->position < XFASTINT (limit))) |
1211 | 976 next = next_interval (next); |
977 | |
978 if (NULL_INTERVAL_P (next)) | |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
979 return limit; |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
980 if (! NILP (limit) && !(next->position < XFASTINT (limit))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
981 return limit; |
1211 | 982 |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
983 return make_number (next->position); |
1211 | 984 } |
985 | |
1029 | 986 DEFUN ("previous-property-change", Fprevious_property_change, |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
987 Sprevious_property_change, 1, 3, 0, |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
988 "Return the position of previous property change.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
989 Scans characters backwards from POSITION in OBJECT till it finds\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
990 a change in some text property, then returns the position of the change.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
991 The optional second argument OBJECT is the string or buffer to scan.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
992 Return nil if the property is constant all the way to the start of OBJECT.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
993 If the value is non-nil, it is a position less than POSITION, never equal.\n\n\ |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
994 If the optional third argument LIMIT is non-nil, don't search\n\ |
5645 | 995 back past position LIMIT; return LIMIT if nothing is found until LIMIT.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
996 (position, object, limit) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
997 Lisp_Object position, object, limit; |
1029 | 998 { |
999 register INTERVAL i, previous; | |
1000 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1001 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1002 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1003 |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1004 if (!NILP (limit)) |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1005 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1006 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1007 i = validate_interval_range (object, &position, &position, soft); |
1029 | 1008 if (NULL_INTERVAL_P (i)) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1009 return limit; |
1029 | 1010 |
5644
2abe67658895
(Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents:
5114
diff
changeset
|
1011 /* Start with the interval containing the char before point. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1012 if (i->position == XFASTINT (position)) |
5644
2abe67658895
(Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents:
5114
diff
changeset
|
1013 i = previous_interval (i); |
2abe67658895
(Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents:
5114
diff
changeset
|
1014 |
1029 | 1015 previous = previous_interval (i); |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1016 while (! NULL_INTERVAL_P (previous) && intervals_equal (previous, i) |
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1017 && (NILP (limit) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1018 || (previous->position + LENGTH (previous) > XFASTINT (limit)))) |
1029 | 1019 previous = previous_interval (previous); |
1020 if (NULL_INTERVAL_P (previous)) | |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1021 return limit; |
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1022 if (!NILP (limit) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1023 && !(previous->position + LENGTH (previous) > XFASTINT (limit))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1024 return limit; |
1029 | 1025 |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1026 return make_number (previous->position + LENGTH (previous)); |
1029 | 1027 } |
1028 | |
1211 | 1029 DEFUN ("previous-single-property-change", Fprevious_single_property_change, |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1030 Sprevious_single_property_change, 2, 4, 0, |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1031 "Return the position of previous property change for a specific property.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1032 Scans characters backward from POSITION till it finds\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1033 a change in the PROP property, then returns the position of the change.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1034 The optional third argument OBJECT is the string or buffer to scan.\n\ |
4986
31b1545319dc
(Fprevious_single_property_change): Fix missing \n\.
Richard M. Stallman <rms@gnu.org>
parents:
4797
diff
changeset
|
1035 The property values are compared with `eq'.\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1036 Return nil if the property is constant all the way to the start of OBJECT.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1037 If the value is non-nil, it is a position less than POSITION, never equal.\n\n\ |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1038 If the optional fourth argument LIMIT is non-nil, don't search\n\ |
5645 | 1039 back past position LIMIT; return LIMIT if nothing is found until LIMIT.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1040 (position, prop, object, limit) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1041 Lisp_Object position, prop, object, limit; |
1211 | 1042 { |
1043 register INTERVAL i, previous; | |
1044 register Lisp_Object here_val; | |
1045 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1046 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1047 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1048 |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1049 if (!NILP (limit)) |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1050 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1051 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1052 i = validate_interval_range (object, &position, &position, soft); |
7773
2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents:
7582
diff
changeset
|
1053 |
2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents:
7582
diff
changeset
|
1054 /* Start with the interval containing the char before point. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1055 if (! NULL_INTERVAL_P (i) && i->position == XFASTINT (position)) |
7773
2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents:
7582
diff
changeset
|
1056 i = previous_interval (i); |
2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents:
7582
diff
changeset
|
1057 |
1211 | 1058 if (NULL_INTERVAL_P (i)) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1059 return limit; |
1211 | 1060 |
2762
dd28ed1e1928
* textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents:
2124
diff
changeset
|
1061 here_val = textget (i->plist, prop); |
1211 | 1062 previous = previous_interval (i); |
1063 while (! NULL_INTERVAL_P (previous) | |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1064 && EQ (here_val, textget (previous->plist, prop)) |
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1065 && (NILP (limit) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1066 || (previous->position + LENGTH (previous) > XFASTINT (limit)))) |
1211 | 1067 previous = previous_interval (previous); |
1068 if (NULL_INTERVAL_P (previous)) | |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1069 return limit; |
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1070 if (!NILP (limit) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1071 && !(previous->position + LENGTH (previous) > XFASTINT (limit))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1072 return limit; |
1211 | 1073 |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1074 return make_number (previous->position + LENGTH (previous)); |
1211 | 1075 } |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
1076 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1077 /* Callers note, this can GC when OBJECT is a buffer (or nil). */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1078 |
1029 | 1079 DEFUN ("add-text-properties", Fadd_text_properties, |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1080 Sadd_text_properties, 3, 4, 0, |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1081 "Add properties to the text from START to END.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1082 The third argument PROPERTIES is a property list\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1083 specifying the property values to add.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1084 The optional fourth argument, OBJECT,\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1085 is the string or buffer containing the text.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1086 Return t if any property value actually changed, nil otherwise.") |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1087 (start, end, properties, object) |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1088 Lisp_Object start, end, properties, object; |
1029 | 1089 { |
1090 register INTERVAL i, unchanged; | |
2124
54179ef9ce35
* textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents:
2058
diff
changeset
|
1091 register int s, len, modified = 0; |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1092 struct gcpro gcpro1; |
1029 | 1093 |
1094 properties = validate_plist (properties); | |
1095 if (NILP (properties)) | |
1096 return Qnil; | |
1097 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1098 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1099 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1100 |
1029 | 1101 i = validate_interval_range (object, &start, &end, hard); |
1102 if (NULL_INTERVAL_P (i)) | |
1103 return Qnil; | |
1104 | |
1105 s = XINT (start); | |
1106 len = XINT (end) - s; | |
1107 | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1108 /* No need to protect OBJECT, because we GC only if it's a buffer, |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1109 and live buffers are always protected. */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1110 GCPRO1 (properties); |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1111 |
1029 | 1112 /* If we're not starting on an interval boundary, we have to |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
1113 split this interval. */ |
1029 | 1114 if (i->position != s) |
1115 { | |
1116 /* If this interval already has the properties, we can | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
1117 skip it. */ |
1029 | 1118 if (interval_has_all_properties (properties, i)) |
1119 { | |
1120 int got = (LENGTH (i) - (s - i->position)); | |
1121 if (got >= len) | |
14538
a17752d2b0c0
(Fadd_text_properties): Don't return without ungcpro.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
1122 RETURN_UNGCPRO (Qnil); |
1029 | 1123 len -= got; |
3858
e07d474bdba9
(Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
3698
diff
changeset
|
1124 i = next_interval (i); |
1029 | 1125 } |
1126 else | |
1127 { | |
1128 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1129 i = split_interval_right (unchanged, s - unchanged->position); |
1029 | 1130 copy_properties (unchanged, i); |
1131 } | |
1132 } | |
1133 | |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1134 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1135 modify_region (XBUFFER (object), XINT (start), XINT (end)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1136 |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1137 /* We are at the beginning of interval I, with LEN chars to scan. */ |
2124
54179ef9ce35
* textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents:
2058
diff
changeset
|
1138 for (;;) |
1029 | 1139 { |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1140 if (i == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1141 abort (); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1142 |
1029 | 1143 if (LENGTH (i) >= len) |
1144 { | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1145 /* We can UNGCPRO safely here, because there will be just |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1146 one more chance to gc, in the next call to add_properties, |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1147 and after that we will not need PROPERTIES or OBJECT again. */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1148 UNGCPRO; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1149 |
1029 | 1150 if (interval_has_all_properties (properties, i)) |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1151 { |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1152 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1153 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1154 XINT (end) - XINT (start)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1155 |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1156 return modified ? Qt : Qnil; |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1157 } |
1029 | 1158 |
1159 if (LENGTH (i) == len) | |
1160 { | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1161 add_properties (properties, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1162 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1163 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1164 XINT (end) - XINT (start)); |
1029 | 1165 return Qt; |
1166 } | |
1167 | |
1168 /* i doesn't have the properties, and goes past the change limit */ | |
1169 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1170 i = split_interval_left (unchanged, len); |
1029 | 1171 copy_properties (unchanged, i); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1172 add_properties (properties, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1173 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1174 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1175 XINT (end) - XINT (start)); |
1029 | 1176 return Qt; |
1177 } | |
1178 | |
1179 len -= LENGTH (i); | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1180 modified += add_properties (properties, i, object); |
1029 | 1181 i = next_interval (i); |
1182 } | |
1183 } | |
1184 | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1185 /* Callers note, this can GC when OBJECT is a buffer (or nil). */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1186 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1187 DEFUN ("put-text-property", Fput_text_property, |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1188 Sput_text_property, 4, 5, 0, |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1189 "Set one property of the text from START to END.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1190 The third and fourth arguments PROPERTY and VALUE\n\ |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1191 specify the property to add.\n\ |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1192 The optional fifth argument, OBJECT,\n\ |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1193 is the string or buffer containing the text.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1194 (start, end, property, value, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1195 Lisp_Object start, end, property, value, object; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1196 { |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1197 Fadd_text_properties (start, end, |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1198 Fcons (property, Fcons (value, Qnil)), |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1199 object); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1200 return Qnil; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1201 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1202 |
1029 | 1203 DEFUN ("set-text-properties", Fset_text_properties, |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1204 Sset_text_properties, 3, 4, 0, |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1205 "Completely replace properties of text from START to END.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1206 The third argument PROPERTIES is the new property list.\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1207 The optional fourth argument, OBJECT,\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1208 is the string or buffer containing the text.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1209 (start, end, properties, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1210 Lisp_Object start, end, properties, object; |
1029 | 1211 { |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1212 return set_text_properties (start, end, properties, object, Qt); |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1213 } |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1214 |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1215 |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1216 /* Replace properties of text from START to END with new list of |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1217 properties PROPERTIES. OBJECT is the buffer or string containing |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1218 the text. OBJECT nil means use the current buffer. |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1219 SIGNAL_AFTER_CHANGE_P nil means don't signal after changes. Value |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1220 is non-nil if properties were replaced; it is nil if there weren't |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1221 any properties to replace. */ |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1222 |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1223 Lisp_Object |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1224 set_text_properties (start, end, properties, object, signal_after_change_p) |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1225 Lisp_Object start, end, properties, object, signal_after_change_p; |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1226 { |
1029 | 1227 register INTERVAL i, unchanged; |
1211 | 1228 register INTERVAL prev_changed = NULL_INTERVAL; |
1029 | 1229 register int s, len; |
9071
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1230 Lisp_Object ostart, oend; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1231 |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1232 ostart = start; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1233 oend = end; |
1029 | 1234 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1235 properties = validate_plist (properties); |
1029 | 1236 |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1237 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1238 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1239 |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1240 /* If we want no properties for a whole string, |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1241 get rid of its intervals. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1242 if (NILP (properties) && STRINGP (object) |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1243 && XFASTINT (start) == 0 |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1244 && XFASTINT (end) == XSTRING (object)->size) |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1245 { |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1246 if (! XSTRING (object)->intervals) |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1247 return Qt; |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1248 |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1249 XSTRING (object)->intervals = 0; |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1250 return Qt; |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1251 } |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1252 |
8686 | 1253 i = validate_interval_range (object, &start, &end, soft); |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1254 |
1029 | 1255 if (NULL_INTERVAL_P (i)) |
8686 | 1256 { |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1257 /* If buffer has no properties, and we want none, return now. */ |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1258 if (NILP (properties)) |
8686 | 1259 return Qnil; |
1260 | |
9071
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1261 /* Restore the original START and END values |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1262 because validate_interval_range increments them for strings. */ |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1263 start = ostart; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1264 end = oend; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1265 |
8686 | 1266 i = validate_interval_range (object, &start, &end, hard); |
1267 /* This can return if start == end. */ | |
1268 if (NULL_INTERVAL_P (i)) | |
1269 return Qnil; | |
1270 } | |
1029 | 1271 |
1272 s = XINT (start); | |
1273 len = XINT (end) - s; | |
1274 | |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1275 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1276 modify_region (XBUFFER (object), XINT (start), XINT (end)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1277 |
1029 | 1278 if (i->position != s) |
1279 { | |
1280 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1281 i = split_interval_right (unchanged, s - unchanged->position); |
1272
bfd04f61eb16
Mods to Ferase_text_properties
Joseph Arceneaux <jla@gnu.org>
parents:
1211
diff
changeset
|
1282 |
1029 | 1283 if (LENGTH (i) > len) |
1284 { | |
1211 | 1285 copy_properties (unchanged, i); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1286 i = split_interval_left (i, len); |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1287 set_properties (properties, i, object); |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1288 if (BUFFERP (object) && !NILP (signal_after_change_p)) |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1289 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1290 XINT (end) - XINT (start)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1291 |
1029 | 1292 return Qt; |
1293 } | |
1294 | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1295 set_properties (properties, i, object); |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1296 |
1211 | 1297 if (LENGTH (i) == len) |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1298 { |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1299 if (BUFFERP (object) && !NILP (signal_after_change_p)) |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1300 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1301 XINT (end) - XINT (start)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1302 |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1303 return Qt; |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1304 } |
1211 | 1305 |
1306 prev_changed = i; | |
1029 | 1307 len -= LENGTH (i); |
1308 i = next_interval (i); | |
1309 } | |
1310 | |
1283
6f4cbcc62eba
Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents:
1272
diff
changeset
|
1311 /* We are starting at the beginning of an interval, I */ |
1272
bfd04f61eb16
Mods to Ferase_text_properties
Joseph Arceneaux <jla@gnu.org>
parents:
1211
diff
changeset
|
1312 while (len > 0) |
1029 | 1313 { |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1314 if (i == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1315 abort (); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1316 |
1029 | 1317 if (LENGTH (i) >= len) |
1318 { | |
1283
6f4cbcc62eba
Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents:
1272
diff
changeset
|
1319 if (LENGTH (i) > len) |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1320 i = split_interval_left (i, len); |
1029 | 1321 |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1322 /* We have to call set_properties even if we are going to |
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1323 merge the intervals, so as to make the undo records |
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1324 and cause redisplay to happen. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1325 set_properties (properties, i, object); |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1326 if (!NULL_INTERVAL_P (prev_changed)) |
1211 | 1327 merge_interval_left (i); |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1328 if (BUFFERP (object) && !NILP (signal_after_change_p)) |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1329 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1330 XINT (end) - XINT (start)); |
1029 | 1331 return Qt; |
1332 } | |
1333 | |
1334 len -= LENGTH (i); | |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1335 |
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1336 /* We have to call set_properties even if we are going to |
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1337 merge the intervals, so as to make the undo records |
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1338 and cause redisplay to happen. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1339 set_properties (properties, i, object); |
1211 | 1340 if (NULL_INTERVAL_P (prev_changed)) |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1341 prev_changed = i; |
1211 | 1342 else |
1343 prev_changed = i = merge_interval_left (i); | |
1344 | |
1029 | 1345 i = next_interval (i); |
1346 } | |
1347 | |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1348 if (BUFFERP (object) && !NILP (signal_after_change_p)) |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1349 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1350 XINT (end) - XINT (start)); |
1029 | 1351 return Qt; |
1352 } | |
1353 | |
1354 DEFUN ("remove-text-properties", Fremove_text_properties, | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1355 Sremove_text_properties, 3, 4, 0, |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1356 "Remove some properties from text from START to END.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1357 The third argument PROPERTIES is a property list\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1358 whose property names specify the properties to remove.\n\ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1359 \(The values stored in PROPERTIES are ignored.)\n\ |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1360 The optional fourth argument, OBJECT,\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1361 is the string or buffer containing the text.\n\ |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1362 Return t if any property was actually removed, nil otherwise.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1363 (start, end, properties, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1364 Lisp_Object start, end, properties, object; |
1029 | 1365 { |
1366 register INTERVAL i, unchanged; | |
2124
54179ef9ce35
* textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents:
2058
diff
changeset
|
1367 register int s, len, modified = 0; |
1029 | 1368 |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1369 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1370 XSETBUFFER (object, current_buffer); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1371 |
1029 | 1372 i = validate_interval_range (object, &start, &end, soft); |
1373 if (NULL_INTERVAL_P (i)) | |
1374 return Qnil; | |
1375 | |
1376 s = XINT (start); | |
1377 len = XINT (end) - s; | |
1211 | 1378 |
1029 | 1379 if (i->position != s) |
1380 { | |
1381 /* No properties on this first interval -- return if | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
1382 it covers the entire region. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1383 if (! interval_has_some_properties (properties, i)) |
1029 | 1384 { |
1385 int got = (LENGTH (i) - (s - i->position)); | |
1386 if (got >= len) | |
1387 return Qnil; | |
1388 len -= got; | |
3858
e07d474bdba9
(Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
3698
diff
changeset
|
1389 i = next_interval (i); |
1029 | 1390 } |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1391 /* Split away the beginning of this interval; what we don't |
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1392 want to modify. */ |
1029 | 1393 else |
1394 { | |
1395 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1396 i = split_interval_right (unchanged, s - unchanged->position); |
1029 | 1397 copy_properties (unchanged, i); |
1398 } | |
1399 } | |
1400 | |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1401 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1402 modify_region (XBUFFER (object), XINT (start), XINT (end)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1403 |
1029 | 1404 /* We are at the beginning of an interval, with len to scan */ |
2124
54179ef9ce35
* textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents:
2058
diff
changeset
|
1405 for (;;) |
1029 | 1406 { |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1407 if (i == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1408 abort (); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1409 |
1029 | 1410 if (LENGTH (i) >= len) |
1411 { | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1412 if (! interval_has_some_properties (properties, i)) |
1029 | 1413 return modified ? Qt : Qnil; |
1414 | |
1415 if (LENGTH (i) == len) | |
1416 { | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1417 remove_properties (properties, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1418 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1419 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1420 XINT (end) - XINT (start)); |
1029 | 1421 return Qt; |
1422 } | |
1423 | |
1424 /* i has the properties, and goes past the change limit */ | |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1425 unchanged = i; |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1426 i = split_interval_left (i, len); |
1029 | 1427 copy_properties (unchanged, i); |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1428 remove_properties (properties, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1429 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1430 signal_after_change (XINT (start), XINT (end) - XINT (start), |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1431 XINT (end) - XINT (start)); |
1029 | 1432 return Qt; |
1433 } | |
1434 | |
1435 len -= LENGTH (i); | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1436 modified += remove_properties (properties, i, object); |
1029 | 1437 i = next_interval (i); |
1438 } | |
1439 } | |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
1440 |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1441 DEFUN ("text-property-any", Ftext_property_any, |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1442 Stext_property_any, 4, 5, 0, |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1443 "Check text from START to END for property PROPERTY equalling VALUE.\n\ |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1444 If so, return the position of the first character whose property PROPERTY\n\ |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1445 is `eq' to VALUE. Otherwise return nil.\n\ |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1446 The optional fifth argument, OBJECT, is the string or buffer\n\ |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1447 containing the text.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1448 (start, end, property, value, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1449 Lisp_Object start, end, property, value, object; |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1450 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1451 register INTERVAL i; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1452 register int e, pos; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1453 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1454 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1455 XSETBUFFER (object, current_buffer); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1456 i = validate_interval_range (object, &start, &end, soft); |
10488
701e7acfe885
(Ftext_property_any): Handle the trivial case specially.
Karl Heuer <kwzh@gnu.org>
parents:
10312
diff
changeset
|
1457 if (NULL_INTERVAL_P (i)) |
701e7acfe885
(Ftext_property_any): Handle the trivial case specially.
Karl Heuer <kwzh@gnu.org>
parents:
10312
diff
changeset
|
1458 return (!NILP (value) || EQ (start, end) ? Qnil : start); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1459 e = XINT (end); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1460 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1461 while (! NULL_INTERVAL_P (i)) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1462 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1463 if (i->position >= e) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1464 break; |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1465 if (EQ (textget (i->plist, property), value)) |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1466 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1467 pos = i->position; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1468 if (pos < XINT (start)) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1469 pos = XINT (start); |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1470 return make_number (pos); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1471 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1472 i = next_interval (i); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1473 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1474 return Qnil; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1475 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1476 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1477 DEFUN ("text-property-not-all", Ftext_property_not_all, |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1478 Stext_property_not_all, 4, 5, 0, |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1479 "Check text from START to END for property PROPERTY not equalling VALUE.\n\ |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1480 If so, return the position of the first character whose property PROPERTY\n\ |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1481 is not `eq' to VALUE. Otherwise, return nil.\n\ |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1482 The optional fifth argument, OBJECT, is the string or buffer\n\ |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1483 containing the text.") |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1484 (start, end, property, value, object) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1485 Lisp_Object start, end, property, value, object; |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1486 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1487 register INTERVAL i; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1488 register int s, e; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1489 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1490 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1491 XSETBUFFER (object, current_buffer); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1492 i = validate_interval_range (object, &start, &end, soft); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1493 if (NULL_INTERVAL_P (i)) |
5114
b37f62d72049
(Ftext_property_not_all): For trivial yes, return start, not Qt.
Richard M. Stallman <rms@gnu.org>
parents:
5086
diff
changeset
|
1494 return (NILP (value) || EQ (start, end)) ? Qnil : start; |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1495 s = XINT (start); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1496 e = XINT (end); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1497 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1498 while (! NULL_INTERVAL_P (i)) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1499 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1500 if (i->position >= e) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1501 break; |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1502 if (! EQ (textget (i->plist, property), value)) |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1503 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1504 if (i->position > s) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1505 s = i->position; |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1506 return make_number (s); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1507 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1508 i = next_interval (i); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1509 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1510 return Qnil; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1511 } |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
1512 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1513 /* I don't think this is the right interface to export; how often do you |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1514 want to do something like this, other than when you're copying objects |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1515 around? |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1516 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1517 I think it would be better to have a pair of functions, one which |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1518 returns the text properties of a region as a list of ranges and |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1519 plists, and another which applies such a list to another object. */ |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1520 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1521 /* Add properties from SRC to SRC of SRC, starting at POS in DEST. |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1522 SRC and DEST may each refer to strings or buffers. |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1523 Optional sixth argument PROP causes only that property to be copied. |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1524 Properties are copied to DEST as if by `add-text-properties'. |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1525 Return t if any property value actually changed, nil otherwise. */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1526 |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1527 /* Note this can GC when DEST is a buffer. */ |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1528 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1529 Lisp_Object |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1530 copy_text_properties (start, end, src, pos, dest, prop) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1531 Lisp_Object start, end, src, pos, dest, prop; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1532 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1533 INTERVAL i; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1534 Lisp_Object res; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1535 Lisp_Object stuff; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1536 Lisp_Object plist; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1537 int s, e, e2, p, len, modified = 0; |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1538 struct gcpro gcpro1, gcpro2; |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1539 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1540 i = validate_interval_range (src, &start, &end, soft); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1541 if (NULL_INTERVAL_P (i)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1542 return Qnil; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1543 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1544 CHECK_NUMBER_COERCE_MARKER (pos, 0); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1545 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1546 Lisp_Object dest_start, dest_end; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1547 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1548 dest_start = pos; |
9321
e6759002383c
(Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents:
9280
diff
changeset
|
1549 XSETFASTINT (dest_end, XINT (dest_start) + (XINT (end) - XINT (start))); |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1550 /* Apply this to a copy of pos; it will try to increment its arguments, |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1551 which we don't want. */ |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1552 validate_interval_range (dest, &dest_start, &dest_end, soft); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1553 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1554 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1555 s = XINT (start); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1556 e = XINT (end); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1557 p = XINT (pos); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1558 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1559 stuff = Qnil; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1560 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1561 while (s < e) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1562 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1563 e2 = i->position + LENGTH (i); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1564 if (e2 > e) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1565 e2 = e; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1566 len = e2 - s; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1567 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1568 plist = i->plist; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1569 if (! NILP (prop)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1570 while (! NILP (plist)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1571 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1572 if (EQ (Fcar (plist), prop)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1573 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1574 plist = Fcons (prop, Fcons (Fcar (Fcdr (plist)), Qnil)); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1575 break; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1576 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1577 plist = Fcdr (Fcdr (plist)); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1578 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1579 if (! NILP (plist)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1580 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1581 /* Must defer modifications to the interval tree in case src |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
1582 and dest refer to the same string or buffer. */ |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1583 stuff = Fcons (Fcons (make_number (p), |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1584 Fcons (make_number (p + len), |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1585 Fcons (plist, Qnil))), |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1586 stuff); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1587 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1588 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1589 i = next_interval (i); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1590 if (NULL_INTERVAL_P (i)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1591 break; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1592 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1593 p += len; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1594 s = i->position; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1595 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1596 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1597 GCPRO2 (stuff, dest); |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1598 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1599 while (! NILP (stuff)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1600 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1601 res = Fcar (stuff); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1602 res = Fadd_text_properties (Fcar (res), Fcar (Fcdr (res)), |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1603 Fcar (Fcdr (Fcdr (res))), dest); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1604 if (! NILP (res)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1605 modified++; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1606 stuff = Fcdr (stuff); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1607 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1608 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1609 UNGCPRO; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1610 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1611 return modified ? Qt : Qnil; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1612 } |
25000 | 1613 |
1614 | |
1615 /* Return a list representing the text properties of OBJECT between | |
1616 START and END. if PROP is non-nil, report only on that property. | |
1617 Each result list element has the form (S E PLIST), where S and E | |
1618 are positions in OBJECT and PLIST is a property list containing the | |
1619 text properties of OBJECT between S and E. Value is nil if OBJECT | |
1620 doesn't contain text properties between START and END. */ | |
1621 | |
1622 Lisp_Object | |
1623 text_property_list (object, start, end, prop) | |
1624 Lisp_Object object, start, end, prop; | |
1625 { | |
1626 struct interval *i; | |
1627 Lisp_Object result; | |
1628 | |
1629 result = Qnil; | |
1630 | |
1631 i = validate_interval_range (object, &start, &end, soft); | |
1632 if (!NULL_INTERVAL_P (i)) | |
1633 { | |
1634 int s = XINT (start); | |
1635 int e = XINT (end); | |
1636 | |
1637 while (s < e) | |
1638 { | |
1639 int interval_end, len; | |
1640 Lisp_Object plist; | |
1641 | |
1642 interval_end = i->position + LENGTH (i); | |
1643 if (interval_end > e) | |
1644 interval_end = e; | |
1645 len = interval_end - s; | |
1646 | |
1647 plist = i->plist; | |
1648 | |
1649 if (!NILP (prop)) | |
1650 for (; !NILP (plist); plist = Fcdr (Fcdr (plist))) | |
1651 if (EQ (Fcar (plist), prop)) | |
1652 { | |
1653 plist = Fcons (prop, Fcons (Fcar (Fcdr (plist)), Qnil)); | |
1654 break; | |
1655 } | |
1656 | |
1657 if (!NILP (plist)) | |
1658 result = Fcons (Fcons (make_number (s), | |
1659 Fcons (make_number (s + len), | |
1660 Fcons (plist, Qnil))), | |
1661 result); | |
1662 | |
1663 i = next_interval (i); | |
1664 if (NULL_INTERVAL_P (i)) | |
1665 break; | |
1666 s = i->position; | |
1667 } | |
1668 } | |
1669 | |
1670 return result; | |
1671 } | |
1672 | |
1673 | |
1674 /* Add text properties to OBJECT from LIST. LIST is a list of triples | |
1675 (START END PLIST), where START and END are positions and PLIST is a | |
1676 property list containing the text properties to add. Adjust START | |
1677 and END positions by DELTA before adding properties. Value is | |
1678 non-zero if OBJECT was modified. */ | |
1679 | |
1680 int | |
1681 add_text_properties_from_list (object, list, delta) | |
1682 Lisp_Object object, list, delta; | |
1683 { | |
1684 struct gcpro gcpro1, gcpro2; | |
1685 int modified_p = 0; | |
1686 | |
1687 GCPRO2 (list, object); | |
1688 | |
1689 for (; CONSP (list); list = XCDR (list)) | |
1690 { | |
1691 Lisp_Object item, start, end, plist, tem; | |
1692 | |
1693 item = XCAR (list); | |
1694 start = make_number (XINT (XCAR (item)) + XINT (delta)); | |
1695 end = make_number (XINT (XCAR (XCDR (item))) + XINT (delta)); | |
1696 plist = XCAR (XCDR (XCDR (item))); | |
1697 | |
1698 tem = Fadd_text_properties (start, end, plist, object); | |
1699 if (!NILP (tem)) | |
1700 modified_p = 1; | |
1701 } | |
1702 | |
1703 UNGCPRO; | |
1704 return modified_p; | |
1705 } | |
1706 | |
1707 | |
1708 | |
1709 /* Modify end-points of ranges in LIST destructively. LIST is a list | |
1710 as returned from text_property_list. Change end-points equal to | |
1711 OLD_END to NEW_END. */ | |
1712 | |
1713 void | |
1714 extend_property_ranges (list, old_end, new_end) | |
1715 Lisp_Object list, old_end, new_end; | |
1716 { | |
1717 for (; CONSP (list); list = XCDR (list)) | |
1718 { | |
1719 Lisp_Object item, end; | |
1720 | |
1721 item = XCAR (list); | |
1722 end = XCAR (XCDR (item)); | |
1723 | |
1724 if (EQ (end, old_end)) | |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
1725 XCAR (XCDR (item)) = new_end; |
25000 | 1726 } |
1727 } | |
1728 | |
1729 | |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1730 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1731 /* Call the modification hook functions in LIST, each with START and END. */ |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1732 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1733 static void |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1734 call_mod_hooks (list, start, end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1735 Lisp_Object list, start, end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1736 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1737 struct gcpro gcpro1; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1738 GCPRO1 (list); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1739 while (!NILP (list)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1740 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1741 call2 (Fcar (list), start, end); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1742 list = Fcdr (list); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1743 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1744 UNGCPRO; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1745 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1746 |
20522
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1747 /* Check for read-only intervals between character positions START ... END, |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1748 in BUF, and signal an error if we find one. |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1749 |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1750 Then check for any modification hooks in the range. |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1751 Create a list of all these hooks in lexicographic order, |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1752 eliminating consecutive extra copies of the same hook. Then call |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1753 those hooks in order, with START and END - 1 as arguments. */ |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1754 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1755 void |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1756 verify_interval_modification (buf, start, end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1757 struct buffer *buf; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1758 int start, end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1759 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1760 register INTERVAL intervals = BUF_INTERVALS (buf); |
25772
1902e7e63fa7
(Fset_text_properties): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
1761 register INTERVAL i; |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1762 Lisp_Object hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1763 register Lisp_Object prev_mod_hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1764 Lisp_Object mod_hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1765 struct gcpro gcpro1; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1766 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1767 hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1768 prev_mod_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1769 mod_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1770 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1771 interval_insert_behind_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1772 interval_insert_in_front_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1773 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1774 if (NULL_INTERVAL_P (intervals)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1775 return; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1776 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1777 if (start > end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1778 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1779 int temp = start; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1780 start = end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1781 end = temp; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1782 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1783 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1784 /* For an insert operation, check the two chars around the position. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1785 if (start == end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1786 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1787 INTERVAL prev; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1788 Lisp_Object before, after; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1789 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1790 /* Set I to the interval containing the char after START, |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1791 and PREV to the interval containing the char before START. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1792 Either one may be null. They may be equal. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1793 i = find_interval (intervals, start); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1794 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1795 if (start == BUF_BEGV (buf)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1796 prev = 0; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1797 else if (i->position == start) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1798 prev = previous_interval (i); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1799 else if (i->position < start) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1800 prev = i; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1801 if (start == BUF_ZV (buf)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1802 i = 0; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1803 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1804 /* If Vinhibit_read_only is set and is not a list, we can |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1805 skip the read_only checks. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1806 if (NILP (Vinhibit_read_only) || CONSP (Vinhibit_read_only)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1807 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1808 /* If I and PREV differ we need to check for the read-only |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
1809 property together with its stickiness. If either I or |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1810 PREV are 0, this check is all we need. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1811 We have to take special care, since read-only may be |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1812 indirectly defined via the category property. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1813 if (i != prev) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1814 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1815 if (! NULL_INTERVAL_P (i)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1816 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1817 after = textget (i->plist, Qread_only); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1818 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1819 /* If interval I is read-only and read-only is |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1820 front-sticky, inhibit insertion. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1821 Check for read-only as well as category. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1822 if (! NILP (after) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1823 && NILP (Fmemq (after, Vinhibit_read_only))) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1824 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1825 Lisp_Object tem; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1826 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1827 tem = textget (i->plist, Qfront_sticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1828 if (TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1829 || (NILP (Fplist_get (i->plist, Qread_only)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1830 && TMEM (Qcategory, tem))) |
26276
e15d14f9a16e
(verify_interval_modification): Signal text-read-only
Gerd Moellmann <gerd@gnu.org>
parents:
25819
diff
changeset
|
1831 Fsignal (Qtext_read_only, Qnil); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1832 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1833 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1834 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1835 if (! NULL_INTERVAL_P (prev)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1836 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1837 before = textget (prev->plist, Qread_only); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1838 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1839 /* If interval PREV is read-only and read-only isn't |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1840 rear-nonsticky, inhibit insertion. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1841 Check for read-only as well as category. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1842 if (! NILP (before) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1843 && NILP (Fmemq (before, Vinhibit_read_only))) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1844 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1845 Lisp_Object tem; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1846 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1847 tem = textget (prev->plist, Qrear_nonsticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1848 if (! TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1849 && (! NILP (Fplist_get (prev->plist,Qread_only)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1850 || ! TMEM (Qcategory, tem))) |
26276
e15d14f9a16e
(verify_interval_modification): Signal text-read-only
Gerd Moellmann <gerd@gnu.org>
parents:
25819
diff
changeset
|
1851 Fsignal (Qtext_read_only, Qnil); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1852 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1853 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1854 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1855 else if (! NULL_INTERVAL_P (i)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1856 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1857 after = textget (i->plist, Qread_only); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1858 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1859 /* If interval I is read-only and read-only is |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1860 front-sticky, inhibit insertion. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1861 Check for read-only as well as category. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1862 if (! NILP (after) && NILP (Fmemq (after, Vinhibit_read_only))) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1863 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1864 Lisp_Object tem; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1865 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1866 tem = textget (i->plist, Qfront_sticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1867 if (TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1868 || (NILP (Fplist_get (i->plist, Qread_only)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1869 && TMEM (Qcategory, tem))) |
26276
e15d14f9a16e
(verify_interval_modification): Signal text-read-only
Gerd Moellmann <gerd@gnu.org>
parents:
25819
diff
changeset
|
1870 Fsignal (Qtext_read_only, Qnil); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1871 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1872 tem = textget (prev->plist, Qrear_nonsticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1873 if (! TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1874 && (! NILP (Fplist_get (prev->plist, Qread_only)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1875 || ! TMEM (Qcategory, tem))) |
26276
e15d14f9a16e
(verify_interval_modification): Signal text-read-only
Gerd Moellmann <gerd@gnu.org>
parents:
25819
diff
changeset
|
1876 Fsignal (Qtext_read_only, Qnil); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1877 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1878 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1879 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1880 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1881 /* Run both insert hooks (just once if they're the same). */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1882 if (!NULL_INTERVAL_P (prev)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1883 interval_insert_behind_hooks |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1884 = textget (prev->plist, Qinsert_behind_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1885 if (!NULL_INTERVAL_P (i)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1886 interval_insert_in_front_hooks |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1887 = textget (i->plist, Qinsert_in_front_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1888 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1889 else |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1890 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1891 /* Loop over intervals on or next to START...END, |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1892 collecting their hooks. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1893 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1894 i = find_interval (intervals, start); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1895 do |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1896 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1897 if (! INTERVAL_WRITABLE_P (i)) |
26276
e15d14f9a16e
(verify_interval_modification): Signal text-read-only
Gerd Moellmann <gerd@gnu.org>
parents:
25819
diff
changeset
|
1898 Fsignal (Qtext_read_only, Qnil); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1899 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1900 mod_hooks = textget (i->plist, Qmodification_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1901 if (! NILP (mod_hooks) && ! EQ (mod_hooks, prev_mod_hooks)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1902 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1903 hooks = Fcons (mod_hooks, hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1904 prev_mod_hooks = mod_hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1905 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1906 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1907 i = next_interval (i); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1908 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1909 /* Keep going thru the interval containing the char before END. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1910 while (! NULL_INTERVAL_P (i) && i->position < end); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1911 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1912 GCPRO1 (hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1913 hooks = Fnreverse (hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1914 while (! EQ (hooks, Qnil)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1915 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1916 call_mod_hooks (Fcar (hooks), make_number (start), |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1917 make_number (end)); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1918 hooks = Fcdr (hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1919 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1920 UNGCPRO; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1921 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1922 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1923 |
20522
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
1924 /* Run the interval hooks for an insertion on character range START ... END. |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1925 verify_interval_modification chose which hooks to run; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1926 this function is called after the insertion happens |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1927 so it can indicate the range of inserted text. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1928 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1929 void |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1930 report_interval_modification (start, end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1931 Lisp_Object start, end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1932 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1933 if (! NILP (interval_insert_behind_hooks)) |
18613
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
17467
diff
changeset
|
1934 call_mod_hooks (interval_insert_behind_hooks, start, end); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1935 if (! NILP (interval_insert_in_front_hooks) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1936 && ! EQ (interval_insert_in_front_hooks, |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1937 interval_insert_behind_hooks)) |
18613
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
17467
diff
changeset
|
1938 call_mod_hooks (interval_insert_in_front_hooks, start, end); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1939 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1940 |
1029 | 1941 void |
1942 syms_of_textprop () | |
1943 { | |
11131
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
1944 DEFVAR_LISP ("default-text-properties", &Vdefault_text_properties, |
10925
0480d65be55d
(Vdefault_properties): New vbl.
Boris Goldowsky <boris@gnu.org>
parents:
10488
diff
changeset
|
1945 "Property-list used as default values.\n\ |
11131
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
1946 The value of a property in this list is seen as the value for every\n\ |
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
1947 character that does not have its own value for that property."); |
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
1948 Vdefault_text_properties = Qnil; |
10925
0480d65be55d
(Vdefault_properties): New vbl.
Boris Goldowsky <boris@gnu.org>
parents:
10488
diff
changeset
|
1949 |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
1950 DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, |
9071
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1951 "If non-nil, don't run `point-left' and `point-entered' text properties.\n\ |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1952 This also inhibits the use of the `intangible' text property."); |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
1953 Vinhibit_point_motion_hooks = Qnil; |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1954 |
26872
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1955 DEFVAR_LISP ("text-property-default-nonsticky", |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1956 &Vtext_property_default_nonsticky, |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1957 "Alist of properties vs the corresponding non-stickinesses.\n\ |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1958 Each element has the form (PROPERTY . NONSTICKINESS).\n\ |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1959 \n\ |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1960 If a character in a buffer has PROPERTY, new text inserted adjacent to\n\ |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1961 the character doesn't inherit PROPERTY if NONSTICKINESS is non-nil,\n\ |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1962 inherits it if NONSTICKINESS is nil. The front-sticky and\n\ |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1963 rear-nonsticky properties of the character overrides NONSTICKINESS."); |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1964 Vtext_property_default_nonsticky = Qnil; |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
1965 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1966 staticpro (&interval_insert_behind_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1967 staticpro (&interval_insert_in_front_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1968 interval_insert_behind_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1969 interval_insert_in_front_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
1970 |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
1971 |
1029 | 1972 /* Common attributes one might give text */ |
1973 | |
1974 staticpro (&Qforeground); | |
1975 Qforeground = intern ("foreground"); | |
1976 staticpro (&Qbackground); | |
1977 Qbackground = intern ("background"); | |
1978 staticpro (&Qfont); | |
1979 Qfont = intern ("font"); | |
1980 staticpro (&Qstipple); | |
1981 Qstipple = intern ("stipple"); | |
1982 staticpro (&Qunderline); | |
1983 Qunderline = intern ("underline"); | |
1984 staticpro (&Qread_only); | |
1985 Qread_only = intern ("read-only"); | |
1986 staticpro (&Qinvisible); | |
1987 Qinvisible = intern ("invisible"); | |
6755
a2bccbc870e6
(syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents:
6681
diff
changeset
|
1988 staticpro (&Qintangible); |
a2bccbc870e6
(syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents:
6681
diff
changeset
|
1989 Qintangible = intern ("intangible"); |
2058
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
1990 staticpro (&Qcategory); |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
1991 Qcategory = intern ("category"); |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
1992 staticpro (&Qlocal_map); |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
1993 Qlocal_map = intern ("local-map"); |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1994 staticpro (&Qfront_sticky); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1995 Qfront_sticky = intern ("front-sticky"); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1996 staticpro (&Qrear_nonsticky); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1997 Qrear_nonsticky = intern ("rear-nonsticky"); |
23729
cf1cbb0e5d5b
(Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents:
22344
diff
changeset
|
1998 staticpro (&Qmouse_face); |
cf1cbb0e5d5b
(Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents:
22344
diff
changeset
|
1999 Qmouse_face = intern ("mouse-face"); |
1029 | 2000 |
2001 /* Properties that text might use to specify certain actions */ | |
2002 | |
2003 staticpro (&Qmouse_left); | |
2004 Qmouse_left = intern ("mouse-left"); | |
2005 staticpro (&Qmouse_entered); | |
2006 Qmouse_entered = intern ("mouse-entered"); | |
2007 staticpro (&Qpoint_left); | |
2008 Qpoint_left = intern ("point-left"); | |
2009 staticpro (&Qpoint_entered); | |
2010 Qpoint_entered = intern ("point-entered"); | |
2011 | |
2012 defsubr (&Stext_properties_at); | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
2013 defsubr (&Sget_text_property); |
7582
454c279b6d18
(syms_of_textprop): Set up Lisp fn get-char-property.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
2014 defsubr (&Sget_char_property); |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
2015 defsubr (&Snext_char_property_change); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
2016 defsubr (&Sprevious_char_property_change); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
2017 defsubr (&Snext_single_char_property_change); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
2018 defsubr (&Sprevious_single_char_property_change); |
1029 | 2019 defsubr (&Snext_property_change); |
1211 | 2020 defsubr (&Snext_single_property_change); |
1029 | 2021 defsubr (&Sprevious_property_change); |
1211 | 2022 defsubr (&Sprevious_single_property_change); |
1029 | 2023 defsubr (&Sadd_text_properties); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
2024 defsubr (&Sput_text_property); |
1029 | 2025 defsubr (&Sset_text_properties); |
2026 defsubr (&Sremove_text_properties); | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
2027 defsubr (&Stext_property_any); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
2028 defsubr (&Stext_property_not_all); |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
2029 /* defsubr (&Serase_text_properties); */ |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
2030 /* defsubr (&Scopy_text_properties); */ |
1029 | 2031 } |
1302
538cc0cd6d83
* textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents:
1283
diff
changeset
|
2032 |