Mercurial > emacs
annotate src/textprop.c @ 99492:ee792794d888
(isearch-search-fun): Compare the length of the
current search string with the length of the string from the
previous search state to detect the situation when the user
adds or removes characters in the search string.
Use word-search-forward-lax and word-search-backward-lax in this
case, and otherwise word-search-forward and word-search-backward.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 11 Nov 2008 19:43:09 +0000 |
parents | 00ce595f8afc |
children | 8233f3e2beb4 |
rev | line source |
---|---|
1029 | 1 /* Interface code for dealing with text properties. |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64576
diff
changeset
|
2 Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003, |
79759 | 3 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
1029 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
1029 | 8 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
10 (at your option) any later version. |
1029 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
1029 | 19 |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4649
diff
changeset
|
20 #include <config.h> |
1029 | 21 #include "lisp.h" |
22 #include "intervals.h" | |
23 #include "buffer.h" | |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
24 #include "window.h" |
8962
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
25 |
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
26 #ifndef NULL |
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
27 #define NULL (void *)0 |
722763fed8ce
(Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents:
8907
diff
changeset
|
28 #endif |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
29 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
30 /* 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
|
31 universal set. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
32 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
33 #define TMEM(sym, set) (CONSP (set) ? ! NILP (Fmemq (sym, set)) : ! NILP (set)) |
1029 | 34 |
35 | |
36 /* NOTES: previous- and next- property change will have to skip | |
37 zero-length intervals if they are implemented. This could be done | |
38 inside next_interval and previous_interval. | |
39 | |
1211 | 40 set_properties needs to deal with the interval property cache. |
41 | |
1029 | 42 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
|
43 only once on the list. Although some code i.e., remove_properties, |
1029 | 44 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
|
45 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
|
46 is enforced by the subrs installing properties onto the intervals. */ |
1029 | 47 |
48 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
49 /* Types of hooks. */ |
1029 | 50 Lisp_Object Qmouse_left; |
51 Lisp_Object Qmouse_entered; | |
52 Lisp_Object Qpoint_left; | |
53 Lisp_Object Qpoint_entered; | |
2058
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
54 Lisp_Object Qcategory; |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
55 Lisp_Object Qlocal_map; |
1029 | 56 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
57 /* Visual properties text (including strings) may have. */ |
1029 | 58 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
|
59 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
|
60 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
61 /* Sticky properties */ |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
62 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
|
63 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
64 /* 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
|
65 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
|
66 traversing plists. */ |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
67 #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
|
68 |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
69 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
|
70 Lisp_Object Vdefault_text_properties; |
45680
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
71 Lisp_Object Vchar_property_alias_alist; |
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; |
33952
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
78 |
72005
da0099bc0ba4
* ebrowse.c (usage, version): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
71989
diff
changeset
|
79 static void text_read_only P_ ((Lisp_Object)) NO_RETURN; |
da0099bc0ba4
* ebrowse.c (usage, version): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
71989
diff
changeset
|
80 |
33952
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
81 |
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
82 /* Signal a `text-read-only' error. This function makes it easier |
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
83 to capture that error in GDB by putting a breakpoint on it. */ |
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
84 |
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
85 static void |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
86 text_read_only (propval) |
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
87 Lisp_Object propval; |
33952
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
88 { |
71989
3a19c23d7c59
(text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents:
71575
diff
changeset
|
89 if (STRINGP (propval)) |
3a19c23d7c59
(text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents:
71575
diff
changeset
|
90 xsignal1 (Qtext_read_only, propval); |
3a19c23d7c59
(text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents:
71575
diff
changeset
|
91 |
3a19c23d7c59
(text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents:
71575
diff
changeset
|
92 xsignal0 (Qtext_read_only); |
33952
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
93 } |
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
94 |
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
95 |
1029 | 96 |
1055 | 97 /* Extract the interval at the position pointed to by BEGIN from |
98 OBJECT, a string or buffer. Additionally, check that the positions | |
99 pointed to by BEGIN and END are within the bounds of OBJECT, and | |
100 reverse them if *BEGIN is greater than *END. The objects pointed | |
101 to by BEGIN and END may be integers or markers; if the latter, they | |
102 are coerced to integers. | |
1029 | 103 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
104 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
|
105 to make them origin-one. |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
106 |
1029 | 107 Note that buffer points don't correspond to interval indices. |
108 For example, point-max is 1 greater than the index of the last | |
109 character. This difference is handled in the caller, which uses | |
110 the validated points to determine a length, and operates on that. | |
111 Exceptions are Ftext_properties_at, Fnext_property_change, and | |
112 Fprevious_property_change which call this function with BEGIN == END. | |
113 Handle this case specially. | |
114 | |
115 If FORCE is soft (0), it's OK to return NULL_INTERVAL. Otherwise, | |
1055 | 116 create an interval tree for OBJECT if one doesn't exist, provided |
117 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
|
118 is no text, there can be no text properties. */ |
1029 | 119 |
120 #define soft 0 | |
121 #define hard 1 | |
122 | |
25000 | 123 INTERVAL |
1029 | 124 validate_interval_range (object, begin, end, force) |
125 Lisp_Object object, *begin, *end; | |
126 int force; | |
127 { | |
128 register INTERVAL i; | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
129 int searchpos; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
130 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
131 CHECK_STRING_OR_BUFFER (object); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
132 CHECK_NUMBER_COERCE_MARKER (*begin); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
133 CHECK_NUMBER_COERCE_MARKER (*end); |
1029 | 134 |
135 /* 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
|
136 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
|
137 if (EQ (*begin, *end) && begin != end) |
1029 | 138 return NULL_INTERVAL; |
139 | |
140 if (XINT (*begin) > XINT (*end)) | |
141 { | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
142 Lisp_Object n; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
143 n = *begin; |
1029 | 144 *begin = *end; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
145 *end = n; |
1029 | 146 } |
147 | |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
148 if (BUFFERP (object)) |
1029 | 149 { |
150 register struct buffer *b = XBUFFER (object); | |
151 | |
152 if (!(BUF_BEGV (b) <= XINT (*begin) && XINT (*begin) <= XINT (*end) | |
153 && XINT (*end) <= BUF_ZV (b))) | |
154 args_out_of_range (*begin, *end); | |
10312
4bf079c613c6
(validate_interval_range): Use BUF_INTERVALS.
Richard M. Stallman <rms@gnu.org>
parents:
10159
diff
changeset
|
155 i = BUF_INTERVALS (b); |
1029 | 156 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
157 /* 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
|
158 if (BUF_BEGV (b) == BUF_ZV (b)) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
159 return NULL_INTERVAL; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
160 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
161 searchpos = XINT (*begin); |
1029 | 162 } |
163 else | |
164 { | |
46448
218b99308569
(validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents:
46381
diff
changeset
|
165 int len = SCHARS (object); |
1029 | 166 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
167 if (! (0 <= XINT (*begin) && XINT (*begin) <= XINT (*end) |
46448
218b99308569
(validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents:
46381
diff
changeset
|
168 && XINT (*end) <= len)) |
1029 | 169 args_out_of_range (*begin, *end); |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
170 XSETFASTINT (*begin, XFASTINT (*begin)); |
3996
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
171 if (begin != end) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
172 XSETFASTINT (*end, XFASTINT (*end)); |
46448
218b99308569
(validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents:
46381
diff
changeset
|
173 i = STRING_INTERVALS (object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
174 |
46448
218b99308569
(validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents:
46381
diff
changeset
|
175 if (len == 0) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
176 return NULL_INTERVAL; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
177 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
178 searchpos = XINT (*begin); |
1029 | 179 } |
180 | |
181 if (NULL_INTERVAL_P (i)) | |
182 return (force ? create_root_interval (object) : i); | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
183 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
184 return find_interval (i, searchpos); |
1029 | 185 } |
186 | |
187 /* Validate LIST as a property list. If LIST is not a list, then | |
188 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
|
189 is even numbered and thus suitable as a plist. */ |
1029 | 190 |
191 static Lisp_Object | |
192 validate_plist (list) | |
4797
4dd43e41207a
(validate_plist): Add argument declaration for `list'.
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
193 Lisp_Object list; |
1029 | 194 { |
195 if (NILP (list)) | |
196 return Qnil; | |
197 | |
198 if (CONSP (list)) | |
199 { | |
200 register int i; | |
201 register Lisp_Object tail; | |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
202 for (i = 0, tail = list; CONSP (tail); i++) |
3996
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
203 { |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
204 tail = XCDR (tail); |
3996
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
205 QUIT; |
b9bdcf862c67
* textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents:
3960
diff
changeset
|
206 } |
1029 | 207 if (i & 1) |
208 error ("Odd length text property list"); | |
209 return list; | |
210 } | |
211 | |
212 return Fcons (list, Fcons (Qnil, Qnil)); | |
213 } | |
214 | |
215 /* 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
|
216 with the same values, of list PLIST. */ |
1029 | 217 |
218 static int | |
219 interval_has_all_properties (plist, i) | |
220 Lisp_Object plist; | |
221 INTERVAL i; | |
222 { | |
25772
1902e7e63fa7
(Fset_text_properties): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
223 register Lisp_Object tail1, tail2, sym1; |
1029 | 224 register int found; |
225 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
226 /* Go through each element of PLIST. */ |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
227 for (tail1 = plist; CONSP (tail1); tail1 = Fcdr (XCDR (tail1))) |
1029 | 228 { |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
229 sym1 = XCAR (tail1); |
1029 | 230 found = 0; |
231 | |
232 /* Go through I's plist, looking for sym1 */ | |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
233 for (tail2 = i->plist; CONSP (tail2); tail2 = Fcdr (XCDR (tail2))) |
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
234 if (EQ (sym1, XCAR (tail2))) |
1029 | 235 { |
236 /* 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
|
237 values are unequal, return zero. */ |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
238 if (! EQ (Fcar (XCDR (tail1)), Fcar (XCDR (tail2)))) |
1029 | 239 return 0; |
240 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
241 /* Property has same value on both lists; go to next one. */ |
1029 | 242 found = 1; |
243 break; | |
244 } | |
245 | |
246 if (! found) | |
247 return 0; | |
248 } | |
249 | |
250 return 1; | |
251 } | |
252 | |
253 /* 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
|
254 properties of PLIST, regardless of their values. */ |
1029 | 255 |
256 static INLINE int | |
257 interval_has_some_properties (plist, i) | |
258 Lisp_Object plist; | |
259 INTERVAL i; | |
260 { | |
261 register Lisp_Object tail1, tail2, sym; | |
262 | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
263 /* Go through each element of PLIST. */ |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
264 for (tail1 = plist; CONSP (tail1); tail1 = Fcdr (XCDR (tail1))) |
1029 | 265 { |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
266 sym = XCAR (tail1); |
1029 | 267 |
268 /* Go through i's plist, looking for tail1 */ | |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
269 for (tail2 = i->plist; CONSP (tail2); tail2 = Fcdr (XCDR (tail2))) |
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
270 if (EQ (sym, XCAR (tail2))) |
1029 | 271 return 1; |
272 } | |
273 | |
274 return 0; | |
275 } | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
276 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
277 /* Return nonzero if the plist of interval I has any of the |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
278 property names in LIST, regardless of their values. */ |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
279 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
280 static INLINE int |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
281 interval_has_some_properties_list (list, i) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
282 Lisp_Object list; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
283 INTERVAL i; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
284 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
285 register Lisp_Object tail1, tail2, sym; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
286 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
287 /* Go through each element of LIST. */ |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
288 for (tail1 = list; CONSP (tail1); tail1 = XCDR (tail1)) |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
289 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
290 sym = Fcar (tail1); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
291 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
292 /* Go through i's plist, looking for tail1 */ |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
293 for (tail2 = i->plist; CONSP (tail2); tail2 = XCDR (XCDR (tail2))) |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
294 if (EQ (sym, XCAR (tail2))) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
295 return 1; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
296 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
297 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
298 return 0; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
299 } |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
300 |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
301 /* 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
|
302 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
303 /* 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
|
304 has none. */ |
8907
f7de8b4cb1b8
(validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents:
8856
diff
changeset
|
305 static Lisp_Object |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
306 property_value (plist, prop) |
8856
7e9547af43e8
(property_value): Declare args plist, prop.
Richard M. Stallman <rms@gnu.org>
parents:
8762
diff
changeset
|
307 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
|
308 { |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
309 Lisp_Object value; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
310 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
311 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
|
312 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
|
313 return XCAR (value); |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
314 else |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
315 plist = XCDR (value); |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
316 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
317 return Qunbound; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
318 } |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
319 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
320 /* Set the properties of INTERVAL to PROPERTIES, |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
321 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
|
322 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
|
323 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
324 static void |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
325 set_properties (properties, interval, object) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
326 Lisp_Object properties, object; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
327 INTERVAL interval; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
328 { |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
329 Lisp_Object sym, value; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
330 |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
331 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
332 { |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
333 /* 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
|
334 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
|
335 for (sym = interval->plist; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
336 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
|
337 sym = XCDR (value)) |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
338 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
|
339 XCAR (value))) |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
340 { |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
341 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
|
342 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
|
343 object); |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
344 } |
3960
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
345 |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
346 /* 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
|
347 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
|
348 for (sym = properties; |
7be89f84a882
* textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents:
3858
diff
changeset
|
349 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
|
350 sym = XCDR (value)) |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25000
diff
changeset
|
351 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
|
352 { |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
353 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
|
354 XCAR (sym), Qnil, |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
355 object); |
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
356 } |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
357 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
358 |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
359 /* Store new properties. */ |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
360 interval->plist = Fcopy_sequence (properties); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
361 } |
1029 | 362 |
363 /* Add the properties of PLIST to the interval I, or set | |
364 the value of I's property to the value of the property on PLIST | |
365 if they are different. | |
366 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
367 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
|
368 |
1029 | 369 Return nonzero if this changes I (i.e., if any members of PLIST |
370 are actually added to I's plist) */ | |
371 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
372 static int |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
373 add_properties (plist, i, object) |
1029 | 374 Lisp_Object plist; |
375 INTERVAL i; | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
376 Lisp_Object object; |
1029 | 377 { |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
378 Lisp_Object tail1, tail2, sym1, val1; |
1029 | 379 register int changed = 0; |
380 register int found; | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
381 struct gcpro gcpro1, gcpro2, gcpro3; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
382 |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
383 tail1 = plist; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
384 sym1 = Qnil; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
385 val1 = Qnil; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
386 /* 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
|
387 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
|
388 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
|
389 GCPRO3 (tail1, sym1, val1); |
1029 | 390 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
391 /* Go through each element of PLIST. */ |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
392 for (tail1 = plist; CONSP (tail1); tail1 = Fcdr (XCDR (tail1))) |
1029 | 393 { |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
394 sym1 = XCAR (tail1); |
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
395 val1 = Fcar (XCDR (tail1)); |
1029 | 396 found = 0; |
397 | |
398 /* Go through I's plist, looking for sym1 */ | |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
399 for (tail2 = i->plist; CONSP (tail2); tail2 = Fcdr (XCDR (tail2))) |
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
400 if (EQ (sym1, XCAR (tail2))) |
1029 | 401 { |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
402 /* No need to gcpro, because tail2 protects this |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
403 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
|
404 register Lisp_Object this_cdr; |
1029 | 405 |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
406 this_cdr = XCDR (tail2); |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
407 /* Found the property. Now check its value. */ |
1029 | 408 found = 1; |
409 | |
410 /* 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
|
411 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
|
412 if (EQ (val1, Fcar (this_cdr))) |
1029 | 413 break; |
414 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
415 /* 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
|
416 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
417 { |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
418 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
|
419 sym1, Fcar (this_cdr), object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
420 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
421 |
1029 | 422 /* I's property has a different value -- change it */ |
423 Fsetcar (this_cdr, val1); | |
424 changed++; | |
425 break; | |
426 } | |
427 | |
428 if (! found) | |
429 { | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
430 /* 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
|
431 if (BUFFERP (object)) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
432 { |
4076
9fd5ecacfbbb
(Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4007
diff
changeset
|
433 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
|
434 sym1, Qnil, object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
435 } |
1029 | 436 i->plist = Fcons (sym1, Fcons (val1, i->plist)); |
437 changed++; | |
438 } | |
439 } | |
440 | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
441 UNGCPRO; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
442 |
1029 | 443 return changed; |
444 } | |
445 | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
446 /* For any members of PLIST, or LIST, |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
447 which are properties of I, remove them from I's plist. |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
448 (If PLIST is non-nil, use that, otherwise use LIST.) |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
449 OBJECT is the string or buffer containing I. */ |
1029 | 450 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
451 static int |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
452 remove_properties (plist, list, i, object) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
453 Lisp_Object plist, list; |
1029 | 454 INTERVAL i; |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
455 Lisp_Object object; |
1029 | 456 { |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
457 register Lisp_Object tail1, tail2, sym, current_plist; |
1029 | 458 register int changed = 0; |
459 | |
44748
e137c1849517
(remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents:
44673
diff
changeset
|
460 /* Nonzero means tail1 is a plist, otherwise it is a list. */ |
e137c1849517
(remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents:
44673
diff
changeset
|
461 int use_plist; |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
462 |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
463 current_plist = i->plist; |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
464 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
465 if (! NILP (plist)) |
44748
e137c1849517
(remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents:
44673
diff
changeset
|
466 tail1 = plist, use_plist = 1; |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
467 else |
44748
e137c1849517
(remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents:
44673
diff
changeset
|
468 tail1 = list, use_plist = 0; |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
469 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
470 /* Go through each element of LIST or PLIST. */ |
44976
b8a7a7d6e18a
(remove_properties): Don't use XCAR without CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44748
diff
changeset
|
471 while (CONSP (tail1)) |
1029 | 472 { |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
473 sym = XCAR (tail1); |
1029 | 474 |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
475 /* First, remove the symbol if it's at the head of the list */ |
44976
b8a7a7d6e18a
(remove_properties): Don't use XCAR without CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44748
diff
changeset
|
476 while (CONSP (current_plist) && EQ (sym, XCAR (current_plist))) |
1029 | 477 { |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
478 if (BUFFERP (object)) |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
479 record_property_change (i->position, LENGTH (i), |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
480 sym, XCAR (XCDR (current_plist)), |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
481 object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
482 |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
483 current_plist = XCDR (XCDR (current_plist)); |
1029 | 484 changed++; |
485 } | |
486 | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
487 /* Go through I's plist, looking for SYM. */ |
1029 | 488 tail2 = current_plist; |
489 while (! NILP (tail2)) | |
490 { | |
6516
8278049ee7a7
(add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6064
diff
changeset
|
491 register Lisp_Object this; |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
492 this = XCDR (XCDR (tail2)); |
44976
b8a7a7d6e18a
(remove_properties): Don't use XCAR without CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44748
diff
changeset
|
493 if (CONSP (this) && EQ (sym, XCAR (this))) |
1029 | 494 { |
9109
6e44ddc40153
(validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents:
9071
diff
changeset
|
495 if (BUFFERP (object)) |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
496 record_property_change (i->position, LENGTH (i), |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
497 sym, XCAR (XCDR (this)), object); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
498 |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
499 Fsetcdr (XCDR (tail2), XCDR (XCDR (this))); |
1029 | 500 changed++; |
501 } | |
502 tail2 = this; | |
503 } | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
504 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
505 /* Advance thru TAIL1 one way or the other. */ |
44748
e137c1849517
(remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents:
44673
diff
changeset
|
506 tail1 = XCDR (tail1); |
e137c1849517
(remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents:
44673
diff
changeset
|
507 if (use_plist && CONSP (tail1)) |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
508 tail1 = XCDR (tail1); |
1029 | 509 } |
510 | |
511 if (changed) | |
512 i->plist = current_plist; | |
513 return changed; | |
514 } | |
515 | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
516 #if 0 |
1029 | 517 /* 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
|
518 if this changes the interval. */ |
1029 | 519 |
520 static INLINE int | |
521 erase_properties (i) | |
522 INTERVAL i; | |
523 { | |
524 if (NILP (i->plist)) | |
525 return 0; | |
526 | |
527 i->plist = Qnil; | |
528 return 1; | |
529 } | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
530 #endif |
1029 | 531 |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
532 /* Returns the interval of POSITION in OBJECT. |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
533 POSITION is BEG-based. */ |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
534 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
535 INTERVAL |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
536 interval_of (position, object) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
537 int position; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
538 Lisp_Object object; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
539 { |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
540 register INTERVAL i; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
541 int beg, end; |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
542 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
543 if (NILP (object)) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
544 XSETBUFFER (object, current_buffer); |
20955 | 545 else if (EQ (object, Qt)) |
546 return NULL_INTERVAL; | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
547 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
548 CHECK_STRING_OR_BUFFER (object); |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
549 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
550 if (BUFFERP (object)) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
551 { |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
552 register struct buffer *b = XBUFFER (object); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
553 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
554 beg = BUF_BEGV (b); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
555 end = BUF_ZV (b); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
556 i = BUF_INTERVALS (b); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
557 } |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
558 else |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
559 { |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
560 beg = 0; |
46448
218b99308569
(validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents:
46381
diff
changeset
|
561 end = SCHARS (object); |
218b99308569
(validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents:
46381
diff
changeset
|
562 i = STRING_INTERVALS (object); |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
563 } |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
564 |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
565 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
|
566 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
|
567 if (beg == end || NULL_INTERVAL_P (i)) |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
568 return NULL_INTERVAL; |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
569 |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
570 return find_interval (i, position); |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
571 } |
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
572 |
1029 | 573 DEFUN ("text-properties-at", Ftext_properties_at, |
574 Stext_properties_at, 1, 2, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
575 doc: /* Return the list of properties of the character at POSITION in OBJECT. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
576 If the optional second argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
577 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
578 If OBJECT is a string, POSITION is a 0-based index into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
579 If POSITION is at the end of OBJECT, the value is nil. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
580 (position, object) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
581 Lisp_Object position, object; |
1029 | 582 { |
583 register INTERVAL i; | |
584 | |
585 if (NILP (object)) | |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
586 XSETBUFFER (object, current_buffer); |
1029 | 587 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
588 i = validate_interval_range (object, &position, &position, soft); |
1029 | 589 if (NULL_INTERVAL_P (i)) |
590 return Qnil; | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
591 /* 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
|
592 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
|
593 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
|
594 since no character follows. */ |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
595 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
|
596 return Qnil; |
1029 | 597 |
598 return i->plist; | |
599 } | |
600 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
601 DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
602 doc: /* Return the value of POSITION's property PROP, in OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
603 OBJECT is optional and defaults to the current buffer. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
604 If POSITION is at the end of OBJECT, the value is nil. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
605 (position, prop, object) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
606 Lisp_Object position, object; |
8271
e8556db1b7f3
(Fget_text_property): Simplify using Ftext_properties_at.
Richard M. Stallman <rms@gnu.org>
parents:
7773
diff
changeset
|
607 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
|
608 { |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
609 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
|
610 } |
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
611 |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
612 /* Return the value of char's property PROP, in OBJECT at POSITION. |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
613 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
|
614 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
|
615 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
|
616 returned in *OVERLAY. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
617 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
|
618 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
|
619 text properties. |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
620 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
|
621 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
|
622 with OBJECT. */ |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
623 Lisp_Object |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
624 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
|
625 Lisp_Object position, object; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
626 register Lisp_Object prop; |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
627 Lisp_Object *overlay; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
628 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
629 struct window *w = 0; |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
630 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
631 CHECK_NUMBER_COERCE_MARKER (position); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
632 |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
633 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
634 XSETBUFFER (object, current_buffer); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
635 |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
636 if (WINDOWP (object)) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
637 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
638 w = XWINDOW (object); |
8907
f7de8b4cb1b8
(validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents:
8856
diff
changeset
|
639 object = w->buffer; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
640 } |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
641 if (BUFFERP (object)) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
642 { |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
643 int noverlays; |
55652
2e649bd1c696
(get_char_property_and_overlay): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
53201
diff
changeset
|
644 Lisp_Object *overlay_vec; |
12641
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
645 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
|
646 |
87488
f53d1d3c813f
(get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents:
85973
diff
changeset
|
647 if (XINT (position) < BUF_BEGV (XBUFFER (object)) |
f53d1d3c813f
(get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents:
85973
diff
changeset
|
648 || XINT (position) > BUF_ZV (XBUFFER (object))) |
f53d1d3c813f
(get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents:
85973
diff
changeset
|
649 xsignal1 (Qargs_out_of_range, position); |
f53d1d3c813f
(get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents:
85973
diff
changeset
|
650 |
12641
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
651 set_buffer_temp (XBUFFER (object)); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
652 |
55652
2e649bd1c696
(get_char_property_and_overlay): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
53201
diff
changeset
|
653 GET_OVERLAYS_AT (XINT (position), overlay_vec, noverlays, NULL, 0); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
654 noverlays = sort_overlays (overlay_vec, noverlays, w); |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
655 |
12641
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
656 set_buffer_temp (obuf); |
aadec66110fd
(Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents:
11131
diff
changeset
|
657 |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
658 /* Now check the overlays in order of decreasing priority. */ |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
659 while (--noverlays >= 0) |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
660 { |
55652
2e649bd1c696
(get_char_property_and_overlay): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
53201
diff
changeset
|
661 Lisp_Object tem = Foverlay_get (overlay_vec[noverlays], prop); |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
662 if (!NILP (tem)) |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
663 { |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
664 if (overlay) |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
665 /* 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
|
666 *overlay = overlay_vec[noverlays]; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
667 return tem; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
668 } |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
669 } |
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
670 } |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
671 |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
672 if (overlay) |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
673 /* 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
|
674 *overlay = Qnil; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
675 |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
676 /* 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
|
677 simpler case. */ |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
678 return Fget_text_property (position, prop, object); |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
679 } |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
680 |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
681 DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
682 doc: /* Return the value of POSITION's property PROP, in OBJECT. |
40647
e673a8c97e47
(Fget_char_property): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40123
diff
changeset
|
683 Both overlay properties and text properties are checked. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
684 OBJECT is optional and defaults to the current buffer. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
685 If POSITION is at the end of OBJECT, the value is nil. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
686 If OBJECT is a buffer, then overlay properties are considered as well as |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
687 text properties. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
688 If OBJECT is a window, then that window's buffer is used, but window-specific |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
689 overlays are considered only if they are associated with OBJECT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
690 (position, prop, object) |
32849
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
691 Lisp_Object position, object; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
692 register Lisp_Object prop; |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
693 { |
e1dec7e5a57c
(get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents:
30699
diff
changeset
|
694 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
|
695 } |
53201
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
696 |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
697 DEFUN ("get-char-property-and-overlay", Fget_char_property_and_overlay, |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
698 Sget_char_property_and_overlay, 2, 3, 0, |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
699 doc: /* Like `get-char-property', but with extra overlay information. |
71575
37f7b9440897
(Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
71499
diff
changeset
|
700 The value is a cons cell. Its car is the return value of `get-char-property' |
37f7b9440897
(Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
71499
diff
changeset
|
701 with the same arguments--that is, the value of POSITION's property |
37f7b9440897
(Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
71499
diff
changeset
|
702 PROP in OBJECT. Its cdr is the overlay in which the property was |
53201
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
703 found, or nil, if it was found as a text property or not found at all. |
71575
37f7b9440897
(Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
71499
diff
changeset
|
704 |
53201
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
705 OBJECT is optional and defaults to the current buffer. OBJECT may be |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
706 a string, a buffer or a window. For strings, the cdr of the return |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
707 value is always nil, since strings do not have overlays. If OBJECT is |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
708 a window, then that window's buffer is used, but window-specific |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
709 overlays are considered only if they are associated with OBJECT. If |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
710 POSITION is at the end of OBJECT, both car and cdr are nil. */) |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
711 (position, prop, object) |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
712 Lisp_Object position, object; |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
713 register Lisp_Object prop; |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
714 { |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
715 Lisp_Object overlay; |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
716 Lisp_Object val |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
717 = get_char_property_and_overlay (position, prop, object, &overlay); |
79334 | 718 return Fcons (val, overlay); |
53201
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
719 } |
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
720 |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
721 |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
722 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
|
723 Snext_char_property_change, 1, 2, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
724 doc: /* Return the position of next text property or overlay change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
725 This scans characters forward in the current buffer from POSITION till |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
726 it finds a change in some text property, or the beginning or end of an |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
727 overlay, and returns the position of that. |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
728 If none is found up to (point-max), the function returns (point-max). |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
729 |
64576
7a1c6e86c825
(Fnext_char_property_change, Fprevious_char_property_change): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
730 If the optional second argument LIMIT is non-nil, don't search |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
731 past position LIMIT; return LIMIT if nothing is found before LIMIT. |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
732 LIMIT is a no-op if it is greater than (point-max). */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
733 (position, limit) |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
734 Lisp_Object position, limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
735 { |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
736 Lisp_Object temp; |
6063
233fffcfb6c8
(Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents:
5646
diff
changeset
|
737 |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
738 temp = Fnext_overlay_change (position); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
739 if (! NILP (limit)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
740 { |
60815 | 741 CHECK_NUMBER_COERCE_MARKER (limit); |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
742 if (XINT (limit) < XINT (temp)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
743 temp = limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
744 } |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
745 return Fnext_property_change (position, Qnil, temp); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
746 } |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
747 |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
748 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
|
749 Sprevious_char_property_change, 1, 2, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
750 doc: /* Return the position of previous text property or overlay change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
751 Scans characters backward in the current buffer from POSITION till it |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
752 finds a change in some text property, or the beginning or end of an |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
753 overlay, and returns the position of that. |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
754 If none is found since (point-min), the function returns (point-min). |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
755 |
64576
7a1c6e86c825
(Fnext_char_property_change, Fprevious_char_property_change): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
756 If the optional second argument LIMIT is non-nil, don't search |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
757 past position LIMIT; return LIMIT if nothing is found before LIMIT. |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
758 LIMIT is a no-op if it is less than (point-min). */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
759 (position, limit) |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
760 Lisp_Object position, limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
761 { |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
762 Lisp_Object temp; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
763 |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
764 temp = Fprevious_overlay_change (position); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
765 if (! NILP (limit)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
766 { |
60815 | 767 CHECK_NUMBER_COERCE_MARKER (limit); |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
768 if (XINT (limit) > XINT (temp)) |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
769 temp = limit; |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
770 } |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
771 return Fprevious_property_change (position, Qnil, temp); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
772 } |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
773 |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
774 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
775 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
|
776 Snext_single_char_property_change, 2, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
777 doc: /* Return the position of next text property or overlay change for a specific property. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
778 Scans characters forward from POSITION till it finds |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
779 a change in the PROP property, then returns the position of the change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
780 If the optional third argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
781 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
782 If OBJECT is a string, POSITION is a 0-based index into it. |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
783 |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
784 In a string, scan runs to the end of the string. |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
785 In a buffer, it runs to (point-max), and the value cannot exceed that. |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
786 |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
787 The property values are compared with `eq'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
788 If the property is constant all the way to the end of OBJECT, return the |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
789 last valid position in OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
790 If the optional fourth argument LIMIT is non-nil, don't search |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
791 past position LIMIT; return LIMIT if nothing is found before LIMIT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
792 (position, prop, object, limit) |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
793 Lisp_Object prop, position, object, limit; |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
794 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
795 if (STRINGP (object)) |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
796 { |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
797 position = Fnext_single_property_change (position, prop, object, limit); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
798 if (NILP (position)) |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
799 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
800 if (NILP (limit)) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
801 position = make_number (SCHARS (object)); |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
802 else |
60815 | 803 { |
804 CHECK_NUMBER (limit); | |
805 position = limit; | |
806 } | |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
807 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
808 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
809 else |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
810 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
811 Lisp_Object initial_value, value; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
45680
diff
changeset
|
812 int count = SPECPDL_INDEX (); |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
813 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
814 if (! NILP (object)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
815 CHECK_BUFFER (object); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
816 |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
817 if (BUFFERP (object) && current_buffer != XBUFFER (object)) |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
818 { |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
819 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
820 Fset_buffer (object); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
821 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
822 |
60815 | 823 CHECK_NUMBER_COERCE_MARKER (position); |
824 | |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
825 initial_value = Fget_char_property (position, prop, object); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
826 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
827 if (NILP (limit)) |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
828 XSETFASTINT (limit, ZV); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
829 else |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
830 CHECK_NUMBER_COERCE_MARKER (limit); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
831 |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
832 if (XFASTINT (position) >= XFASTINT (limit)) |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
833 { |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
834 position = limit; |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
835 if (XFASTINT (position) > ZV) |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
836 XSETFASTINT (position, ZV); |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
837 } |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
838 else |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
839 while (1) |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
840 { |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
841 position = Fnext_char_property_change (position, limit); |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
842 if (XFASTINT (position) >= XFASTINT (limit)) |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
843 { |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
844 position = limit; |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
845 break; |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
846 } |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
847 |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
848 value = Fget_char_property (position, prop, object); |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
849 if (!EQ (value, initial_value)) |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
850 break; |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
851 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
852 |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
853 unbind_to (count, Qnil); |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
854 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
855 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
856 return position; |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
857 } |
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
858 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
859 DEFUN ("previous-single-char-property-change", |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
860 Fprevious_single_char_property_change, |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
861 Sprevious_single_char_property_change, 2, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
862 doc: /* Return the position of previous text property or overlay change for a specific property. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
863 Scans characters backward from POSITION till it finds |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
864 a change in the PROP property, then returns the position of the change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
865 If the optional third argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
866 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
867 If OBJECT is a string, POSITION is a 0-based index into it. |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
868 |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
869 In a string, scan runs to the start of the string. |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
870 In a buffer, it runs to (point-min), and the value cannot be less than that. |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
871 |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
872 The property values are compared with `eq'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
873 If the property is constant all the way to the start of OBJECT, return the |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
874 first valid position in OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
875 If the optional fourth argument LIMIT is non-nil, don't search |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
876 back past position LIMIT; return LIMIT if nothing is found before LIMIT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
877 (position, prop, object, limit) |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
878 Lisp_Object prop, position, object, limit; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
879 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
880 if (STRINGP (object)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
881 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
882 position = Fprevious_single_property_change (position, prop, object, limit); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
883 if (NILP (position)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
884 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
885 if (NILP (limit)) |
99343
00ce595f8afc
(Fprevious_single_char_property_change): Return 0
Martin Rudalics <rudalics@gmx.at>
parents:
95453
diff
changeset
|
886 position = make_number (0); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
887 else |
60815 | 888 { |
889 CHECK_NUMBER (limit); | |
890 position = limit; | |
891 } | |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
892 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
893 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
894 else |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
895 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
45680
diff
changeset
|
896 int count = SPECPDL_INDEX (); |
25819
c2163b0bac24
(next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents:
25772
diff
changeset
|
897 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
898 if (! NILP (object)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
899 CHECK_BUFFER (object); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
900 |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
901 if (BUFFERP (object) && current_buffer != XBUFFER (object)) |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
902 { |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
903 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
904 Fset_buffer (object); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
905 } |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
906 |
60815 | 907 CHECK_NUMBER_COERCE_MARKER (position); |
908 | |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
909 if (NILP (limit)) |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
910 XSETFASTINT (limit, BEGV); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
911 else |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
912 CHECK_NUMBER_COERCE_MARKER (limit); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
913 |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
914 if (XFASTINT (position) <= XFASTINT (limit)) |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
915 { |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
916 position = limit; |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
917 if (XFASTINT (position) < BEGV) |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
918 XSETFASTINT (position, BEGV); |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
919 } |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
920 else |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
921 { |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
922 Lisp_Object initial_value |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
923 = Fget_char_property (make_number (XFASTINT (position) - 1), |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
924 prop, object); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
925 |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
926 while (1) |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
927 { |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
928 position = Fprevious_char_property_change (position, limit); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
929 |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
930 if (XFASTINT (position) <= XFASTINT (limit)) |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
931 { |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
932 position = limit; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
933 break; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
934 } |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
935 else |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
936 { |
70656
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
937 Lisp_Object value |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
938 = Fget_char_property (make_number (XFASTINT (position) - 1), |
182680a57573
(Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents:
70129
diff
changeset
|
939 prop, object); |
30379
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
940 |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
941 if (!EQ (value, initial_value)) |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
942 break; |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
943 } |
836d2e058c70
(Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
30242
diff
changeset
|
944 } |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
945 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
946 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
947 unbind_to (count, Qnil); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
948 } |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
949 |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
950 return position; |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
951 } |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
952 |
1029 | 953 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
|
954 Snext_property_change, 1, 3, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
955 doc: /* Return the position of next property change. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
956 Scans characters forward from POSITION in OBJECT till it finds |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
957 a change in some text property, then returns the position of the change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
958 If the optional second argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
959 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
960 If OBJECT is a string, POSITION is a 0-based index into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
961 Return nil if the property is constant all the way to the end of OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
962 If the value is non-nil, it is a position greater than POSITION, never equal. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
963 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
964 If the optional third argument LIMIT is non-nil, don't search |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
965 past position LIMIT; return LIMIT if nothing is found before LIMIT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
966 (position, object, limit) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
967 Lisp_Object position, object, limit; |
1029 | 968 { |
969 register INTERVAL i, next; | |
970 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
971 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
972 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
|
973 |
42967
51ac72369873
(Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41589
diff
changeset
|
974 if (!NILP (limit) && !EQ (limit, Qt)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
975 CHECK_NUMBER_COERCE_MARKER (limit); |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
976 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
977 i = validate_interval_range (object, &position, &position, soft); |
1029 | 978 |
10962
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
979 /* 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
|
980 bother checking further intervals. */ |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
981 if (EQ (limit, Qt)) |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
982 { |
13265
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
983 if (NULL_INTERVAL_P (i)) |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
984 next = i; |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
985 else |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
986 next = next_interval (i); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
987 |
11116
73b51ad289e3
(Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents:
10962
diff
changeset
|
988 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
|
989 XSETFASTINT (position, (STRINGP (object) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
990 ? SCHARS (object) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
991 : BUF_ZV (XBUFFER (object)))); |
11116
73b51ad289e3
(Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents:
10962
diff
changeset
|
992 else |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
993 XSETFASTINT (position, next->position); |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
994 return position; |
10962
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
995 } |
7f0bc7bcf1f3
(Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents:
10925
diff
changeset
|
996 |
13265
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
997 if (NULL_INTERVAL_P (i)) |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
998 return limit; |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
999 |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
1000 next = next_interval (i); |
dbc038e66ea6
(Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents:
13027
diff
changeset
|
1001 |
42967
51ac72369873
(Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41589
diff
changeset
|
1002 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
|
1003 && (NILP (limit) || next->position < XFASTINT (limit))) |
1029 | 1004 next = next_interval (next); |
1005 | |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1006 if (NULL_INTERVAL_P (next) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1007 || (next->position |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1008 >= (INTEGERP (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1009 ? XFASTINT (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1010 : (STRINGP (object) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1011 ? SCHARS (object) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1012 : BUF_ZV (XBUFFER (object)))))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1013 return limit; |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1014 else |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1015 return make_number (next->position); |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1016 } |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1017 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1018 /* 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
|
1019 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1020 int |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1021 property_change_between_p (beg, end) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1022 int beg, end; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1023 { |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1024 register INTERVAL i, next; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1025 Lisp_Object object, pos; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1026 |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1027 XSETBUFFER (object, current_buffer); |
9321
e6759002383c
(Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents:
9280
diff
changeset
|
1028 XSETFASTINT (pos, beg); |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1029 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1030 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
|
1031 if (NULL_INTERVAL_P (i)) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1032 return 0; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1033 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1034 next = next_interval (i); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1035 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
|
1036 { |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1037 next = next_interval (next); |
4614
2c5557903994
(property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents:
4381
diff
changeset
|
1038 if (NULL_INTERVAL_P (next)) |
2c5557903994
(property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents:
4381
diff
changeset
|
1039 return 0; |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1040 if (next->position >= end) |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1041 return 0; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1042 } |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1043 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1044 if (NULL_INTERVAL_P (next)) |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1045 return 0; |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1046 |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
1047 return 1; |
1029 | 1048 } |
1049 | |
1211 | 1050 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
|
1051 Snext_single_property_change, 2, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1052 doc: /* Return the position of next property change for a specific property. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1053 Scans characters forward from POSITION till it finds |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1054 a change in the PROP property, then returns the position of the change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1055 If the optional third argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1056 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1057 If OBJECT is a string, POSITION is a 0-based index into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1058 The property values are compared with `eq'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1059 Return nil if the property is constant all the way to the end of OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1060 If the value is non-nil, it is a position greater than POSITION, never equal. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1061 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1062 If the optional fourth argument LIMIT is non-nil, don't search |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1063 past position LIMIT; return LIMIT if nothing is found before LIMIT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1064 (position, prop, object, limit) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1065 Lisp_Object position, prop, object, limit; |
1211 | 1066 { |
1067 register INTERVAL i, next; | |
1068 register Lisp_Object here_val; | |
1069 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1070 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1071 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
|
1072 |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1073 if (!NILP (limit)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
1074 CHECK_NUMBER_COERCE_MARKER (limit); |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1075 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1076 i = validate_interval_range (object, &position, &position, soft); |
1211 | 1077 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
|
1078 return limit; |
1211 | 1079 |
2762
dd28ed1e1928
* textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents:
2124
diff
changeset
|
1080 here_val = textget (i->plist, prop); |
1211 | 1081 next = next_interval (i); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1082 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
|
1083 && 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
|
1084 && (NILP (limit) || next->position < XFASTINT (limit))) |
1211 | 1085 next = next_interval (next); |
1086 | |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1087 if (NULL_INTERVAL_P (next) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1088 || (next->position |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1089 >= (INTEGERP (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1090 ? XFASTINT (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1091 : (STRINGP (object) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1092 ? SCHARS (object) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1093 : BUF_ZV (XBUFFER (object)))))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1094 return limit; |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1095 else |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1096 return make_number (next->position); |
1211 | 1097 } |
1098 | |
1029 | 1099 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
|
1100 Sprevious_property_change, 1, 3, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1101 doc: /* Return the position of previous property change. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1102 Scans characters backwards from POSITION in OBJECT till it finds |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1103 a change in some text property, then returns the position of the change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1104 If the optional second argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1105 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1106 If OBJECT is a string, POSITION is a 0-based index into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1107 Return nil if the property is constant all the way to the start of OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1108 If the value is non-nil, it is a position less than POSITION, never equal. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1109 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1110 If the optional third argument LIMIT is non-nil, don't search |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1111 back past position LIMIT; return LIMIT if nothing is found until LIMIT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1112 (position, object, limit) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1113 Lisp_Object position, object, limit; |
1029 | 1114 { |
1115 register INTERVAL i, previous; | |
1116 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1117 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1118 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
|
1119 |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1120 if (!NILP (limit)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
1121 CHECK_NUMBER_COERCE_MARKER (limit); |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1122 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1123 i = validate_interval_range (object, &position, &position, soft); |
1029 | 1124 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
|
1125 return limit; |
1029 | 1126 |
5644
2abe67658895
(Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents:
5114
diff
changeset
|
1127 /* 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
|
1128 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
|
1129 i = previous_interval (i); |
2abe67658895
(Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents:
5114
diff
changeset
|
1130 |
1029 | 1131 previous = previous_interval (i); |
42967
51ac72369873
(Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41589
diff
changeset
|
1132 while (!NULL_INTERVAL_P (previous) && intervals_equal (previous, i) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1133 && (NILP (limit) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1134 || (previous->position + LENGTH (previous) > XFASTINT (limit)))) |
1029 | 1135 previous = previous_interval (previous); |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1136 |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1137 if (NULL_INTERVAL_P (previous) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1138 || (previous->position + LENGTH (previous) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1139 <= (INTEGERP (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1140 ? XFASTINT (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1141 : (STRINGP (object) ? 0 : BUF_BEGV (XBUFFER (object)))))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1142 return limit; |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1143 else |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1144 return make_number (previous->position + LENGTH (previous)); |
1029 | 1145 } |
1146 | |
1211 | 1147 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
|
1148 Sprevious_single_property_change, 2, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1149 doc: /* Return the position of previous property change for a specific property. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1150 Scans characters backward from POSITION till it finds |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1151 a change in the PROP property, then returns the position of the change. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1152 If the optional third argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1153 the current buffer), POSITION is a buffer position (integer or marker). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1154 If OBJECT is a string, POSITION is a 0-based index into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1155 The property values are compared with `eq'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1156 Return nil if the property is constant all the way to the start of OBJECT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1157 If the value is non-nil, it is a position less than POSITION, never equal. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1158 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1159 If the optional fourth argument LIMIT is non-nil, don't search |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1160 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
|
1161 (position, prop, object, limit) |
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1162 Lisp_Object position, prop, object, limit; |
1211 | 1163 { |
1164 register INTERVAL i, previous; | |
1165 register Lisp_Object here_val; | |
1166 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1167 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1168 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
|
1169 |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1170 if (!NILP (limit)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
1171 CHECK_NUMBER_COERCE_MARKER (limit); |
7092
b6b93953cc83
(F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents:
6755
diff
changeset
|
1172 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1173 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
|
1174 |
2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents:
7582
diff
changeset
|
1175 /* Start with the interval containing the char before point. */ |
42967
51ac72369873
(Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41589
diff
changeset
|
1176 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
|
1177 i = previous_interval (i); |
2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents:
7582
diff
changeset
|
1178 |
1211 | 1179 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
|
1180 return limit; |
1211 | 1181 |
2762
dd28ed1e1928
* textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents:
2124
diff
changeset
|
1182 here_val = textget (i->plist, prop); |
1211 | 1183 previous = previous_interval (i); |
42967
51ac72369873
(Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41589
diff
changeset
|
1184 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
|
1185 && 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
|
1186 && (NILP (limit) |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1187 || (previous->position + LENGTH (previous) > XFASTINT (limit)))) |
1211 | 1188 previous = previous_interval (previous); |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1189 |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1190 if (NULL_INTERVAL_P (previous) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1191 || (previous->position + LENGTH (previous) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1192 <= (INTEGERP (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1193 ? XFASTINT (limit) |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1194 : (STRINGP (object) ? 0 : BUF_BEGV (XBUFFER (object)))))) |
5086
6e9634463e93
(Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents:
5020
diff
changeset
|
1195 return limit; |
72834
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1196 else |
84ff2640fb2a
* textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents:
72592
diff
changeset
|
1197 return make_number (previous->position + LENGTH (previous)); |
1211 | 1198 } |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
1199 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1200 /* 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
|
1201 |
1029 | 1202 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
|
1203 Sadd_text_properties, 3, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1204 doc: /* Add properties to the text from START to END. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1205 The third argument PROPERTIES is a property list |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1206 specifying the property values to add. If the optional fourth argument |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1207 OBJECT is a buffer (or nil, which means the current buffer), |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1208 START and END are buffer positions (integers or markers). |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1209 If OBJECT is a string, START and END are 0-based indices into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1210 Return t if any property value actually changed, nil otherwise. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1211 (start, end, properties, object) |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1212 Lisp_Object start, end, properties, object; |
1029 | 1213 { |
1214 register INTERVAL i, unchanged; | |
2124
54179ef9ce35
* textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents:
2058
diff
changeset
|
1215 register int s, len, modified = 0; |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1216 struct gcpro gcpro1; |
1029 | 1217 |
1218 properties = validate_plist (properties); | |
1219 if (NILP (properties)) | |
1220 return Qnil; | |
1221 | |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1222 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1223 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
|
1224 |
1029 | 1225 i = validate_interval_range (object, &start, &end, hard); |
1226 if (NULL_INTERVAL_P (i)) | |
1227 return Qnil; | |
1228 | |
1229 s = XINT (start); | |
1230 len = XINT (end) - s; | |
1231 | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1232 /* 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
|
1233 and live buffers are always protected. */ |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1234 GCPRO1 (properties); |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1235 |
1029 | 1236 /* 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
|
1237 split this interval. */ |
1029 | 1238 if (i->position != s) |
1239 { | |
1240 /* 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
|
1241 skip it. */ |
1029 | 1242 if (interval_has_all_properties (properties, i)) |
1243 { | |
1244 int got = (LENGTH (i) - (s - i->position)); | |
1245 if (got >= len) | |
14538
a17752d2b0c0
(Fadd_text_properties): Don't return without ungcpro.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
1246 RETURN_UNGCPRO (Qnil); |
1029 | 1247 len -= got; |
3858
e07d474bdba9
(Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
3698
diff
changeset
|
1248 i = next_interval (i); |
1029 | 1249 } |
1250 else | |
1251 { | |
1252 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1253 i = split_interval_right (unchanged, s - unchanged->position); |
1029 | 1254 copy_properties (unchanged, i); |
1255 } | |
1256 } | |
1257 | |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1258 if (BUFFERP (object)) |
72592
f6de516bbb4b
* buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents:
72005
diff
changeset
|
1259 modify_region (XBUFFER (object), XINT (start), XINT (end), 1); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1260 |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1261 /* 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
|
1262 for (;;) |
1029 | 1263 { |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1264 if (i == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1265 abort (); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1266 |
1029 | 1267 if (LENGTH (i) >= len) |
1268 { | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1269 /* 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
|
1270 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
|
1271 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
|
1272 UNGCPRO; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1273 |
1029 | 1274 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
|
1275 { |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1276 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1277 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
|
1278 XINT (end) - XINT (start)); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1279 |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1280 return modified ? Qt : Qnil; |
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1281 } |
1029 | 1282 |
1283 if (LENGTH (i) == len) | |
1284 { | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1285 add_properties (properties, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1286 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1287 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
|
1288 XINT (end) - XINT (start)); |
1029 | 1289 return Qt; |
1290 } | |
1291 | |
1292 /* i doesn't have the properties, and goes past the change limit */ | |
1293 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1294 i = split_interval_left (unchanged, len); |
1029 | 1295 copy_properties (unchanged, i); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1296 add_properties (properties, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1297 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1298 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
|
1299 XINT (end) - XINT (start)); |
1029 | 1300 return Qt; |
1301 } | |
1302 | |
1303 len -= LENGTH (i); | |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1304 modified += add_properties (properties, i, object); |
1029 | 1305 i = next_interval (i); |
1306 } | |
1307 } | |
1308 | |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1309 /* 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
|
1310 |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1311 DEFUN ("put-text-property", Fput_text_property, |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1312 Sput_text_property, 4, 5, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1313 doc: /* Set one property of the text from START to END. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1314 The third and fourth arguments PROPERTY and VALUE |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1315 specify the property to add. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1316 If the optional fifth argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1317 the current buffer), START and END are buffer positions (integers or |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1318 markers). If OBJECT is a string, START and END are 0-based indices into it. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1319 (start, end, property, value, object) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1320 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
|
1321 { |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1322 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
|
1323 Fcons (property, Fcons (value, Qnil)), |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1324 object); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1325 return Qnil; |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1326 } |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1327 |
1029 | 1328 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
|
1329 Sset_text_properties, 3, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1330 doc: /* Completely replace properties of text from START to END. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1331 The third argument PROPERTIES is the new property list. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1332 If the optional fourth argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1333 the current buffer), START and END are buffer positions (integers or |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1334 markers). If OBJECT is a string, START and END are 0-based indices into it. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1335 If PROPERTIES is nil, the effect is to remove all properties from |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1336 the designated part of OBJECT. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1337 (start, end, properties, object) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1338 Lisp_Object start, end, properties, object; |
1029 | 1339 { |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1340 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
|
1341 } |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1342 |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1343 |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1344 /* 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
|
1345 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
|
1346 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
|
1347 SIGNAL_AFTER_CHANGE_P nil means don't signal after changes. Value |
67947
7538cafcf9f7
(set_text_properties): Reword description of return value.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64770
diff
changeset
|
1348 is nil if the function _detected_ that it did not replace any |
7538cafcf9f7
(set_text_properties): Reword description of return value.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64770
diff
changeset
|
1349 properties, non-nil otherwise. */ |
26605
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1350 |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1351 Lisp_Object |
46168cb41ba0
(set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1352 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
|
1353 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
|
1354 { |
41391
44d3d642d0c4
(Fset_text_properties): Remove unused variables `unchanged',
Pavel Janík <Pavel@Janik.cz>
parents:
40921
diff
changeset
|
1355 register INTERVAL i; |
9071
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1356 Lisp_Object ostart, oend; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1357 |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1358 ostart = start; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1359 oend = end; |
1029 | 1360 |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1361 properties = validate_plist (properties); |
1029 | 1362 |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1363 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1364 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
|
1365 |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1366 /* 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
|
1367 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
|
1368 if (NILP (properties) && STRINGP (object) |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1369 && XFASTINT (start) == 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1370 && XFASTINT (end) == SCHARS (object)) |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1371 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1372 if (! STRING_INTERVALS (object)) |
67947
7538cafcf9f7
(set_text_properties): Reword description of return value.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64770
diff
changeset
|
1373 return Qnil; |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1374 |
46381
ab2bd718aad6
* textprop.c (set_text_properties): Use STRING_SET_INTERVALS.
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
1375 STRING_SET_INTERVALS (object, NULL_INTERVAL); |
9541
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1376 return Qt; |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1377 } |
449e024f13be
(Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents:
9331
diff
changeset
|
1378 |
8686 | 1379 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
|
1380 |
1029 | 1381 if (NULL_INTERVAL_P (i)) |
8686 | 1382 { |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1383 /* 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
|
1384 if (NILP (properties)) |
8686 | 1385 return Qnil; |
1386 | |
9071
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1387 /* Restore the original START and END values |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1388 because validate_interval_range increments them for strings. */ |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1389 start = ostart; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1390 end = oend; |
2d4d0f6e7be0
(syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8962
diff
changeset
|
1391 |
8686 | 1392 i = validate_interval_range (object, &start, &end, hard); |
1393 /* This can return if start == end. */ | |
1394 if (NULL_INTERVAL_P (i)) | |
1395 return Qnil; | |
1396 } | |
1029 | 1397 |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1398 if (BUFFERP (object)) |
72592
f6de516bbb4b
* buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents:
72005
diff
changeset
|
1399 modify_region (XBUFFER (object), XINT (start), XINT (end), 1); |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1400 |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1401 set_text_properties_1 (start, end, properties, object, i); |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1402 |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1403 if (BUFFERP (object) && !NILP (signal_after_change_p)) |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1404 signal_after_change (XINT (start), XINT (end) - XINT (start), |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1405 XINT (end) - XINT (start)); |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1406 return Qt; |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1407 } |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1408 |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1409 /* Replace properties of text from START to END with new list of |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1410 properties PROPERTIES. BUFFER is the buffer containing |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1411 the text. This does not obey any hooks. |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1412 You can provide the interval that START is located in as I, |
41532
afe70a164d3b
(set_text_properties_1): Clearly mark that the interval should not be empty.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41391
diff
changeset
|
1413 or pass NULL for I and this function will find it. |
41589
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1414 START and END can be in any order. */ |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1415 |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1416 void |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1417 set_text_properties_1 (start, end, properties, buffer, i) |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1418 Lisp_Object start, end, properties, buffer; |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1419 INTERVAL i; |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1420 { |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1421 register INTERVAL prev_changed = NULL_INTERVAL; |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1422 register int s, len; |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1423 INTERVAL unchanged; |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1424 |
1029 | 1425 s = XINT (start); |
1426 len = XINT (end) - s; | |
41589
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1427 if (len == 0) |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1428 return; |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1429 if (len < 0) |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1430 { |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1431 s = s + len; |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1432 len = - len; |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1433 } |
67d2bb283076
(set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents:
41532
diff
changeset
|
1434 |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1435 if (i == 0) |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1436 i = find_interval (BUF_INTERVALS (XBUFFER (buffer)), s); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1437 |
1029 | 1438 if (i->position != s) |
1439 { | |
1440 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1441 i = split_interval_right (unchanged, s - unchanged->position); |
1272
bfd04f61eb16
Mods to Ferase_text_properties
Joseph Arceneaux <jla@gnu.org>
parents:
1211
diff
changeset
|
1442 |
1029 | 1443 if (LENGTH (i) > len) |
1444 { | |
1211 | 1445 copy_properties (unchanged, i); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1446 i = split_interval_left (i, len); |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1447 set_properties (properties, i, buffer); |
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1448 return; |
1029 | 1449 } |
1450 | |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1451 set_properties (properties, i, buffer); |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1452 |
1211 | 1453 if (LENGTH (i) == len) |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1454 return; |
1211 | 1455 |
1456 prev_changed = i; | |
1029 | 1457 len -= LENGTH (i); |
1458 i = next_interval (i); | |
1459 } | |
1460 | |
1283
6f4cbcc62eba
Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents:
1272
diff
changeset
|
1461 /* 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
|
1462 while (len > 0) |
1029 | 1463 { |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1464 if (i == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1465 abort (); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1466 |
1029 | 1467 if (LENGTH (i) >= len) |
1468 { | |
1283
6f4cbcc62eba
Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents:
1272
diff
changeset
|
1469 if (LENGTH (i) > len) |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1470 i = split_interval_left (i, len); |
1029 | 1471 |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1472 /* 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
|
1473 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
|
1474 and cause redisplay to happen. */ |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1475 set_properties (properties, i, buffer); |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1476 if (!NULL_INTERVAL_P (prev_changed)) |
1211 | 1477 merge_interval_left (i); |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1478 return; |
1029 | 1479 } |
1480 | |
1481 len -= LENGTH (i); | |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1482 |
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1483 /* 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
|
1484 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
|
1485 and cause redisplay to happen. */ |
40921
95756d215716
(set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
1486 set_properties (properties, i, buffer); |
1211 | 1487 if (NULL_INTERVAL_P (prev_changed)) |
13585
dc00b7be6593
(Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents:
13265
diff
changeset
|
1488 prev_changed = i; |
1211 | 1489 else |
1490 prev_changed = i = merge_interval_left (i); | |
1491 | |
1029 | 1492 i = next_interval (i); |
1493 } | |
1494 } | |
1495 | |
1496 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
|
1497 Sremove_text_properties, 3, 4, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1498 doc: /* Remove some properties from text from START to END. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1499 The third argument PROPERTIES is a property list |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1500 whose property names specify the properties to remove. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1501 \(The values stored in PROPERTIES are ignored.) |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1502 If the optional fourth argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1503 the current buffer), START and END are buffer positions (integers or |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1504 markers). If OBJECT is a string, START and END are 0-based indices into it. |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1505 Return t if any property was actually removed, nil otherwise. |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1506 |
95453
ca950c418cdd
(syms_of_textprop) <text-property-default-nonsticky>:
Juanma Barranquero <lekktu@gmail.com>
parents:
94963
diff
changeset
|
1507 Use `set-text-properties' if you want to remove all text properties. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1508 (start, end, properties, object) |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1509 Lisp_Object start, end, properties, object; |
1029 | 1510 { |
1511 register INTERVAL i, unchanged; | |
2124
54179ef9ce35
* textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents:
2058
diff
changeset
|
1512 register int s, len, modified = 0; |
1029 | 1513 |
1857
9d65dfc7bdb7
(Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents:
1715
diff
changeset
|
1514 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1515 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
|
1516 |
1029 | 1517 i = validate_interval_range (object, &start, &end, soft); |
1518 if (NULL_INTERVAL_P (i)) | |
1519 return Qnil; | |
1520 | |
1521 s = XINT (start); | |
1522 len = XINT (end) - s; | |
1211 | 1523 |
1029 | 1524 if (i->position != s) |
1525 { | |
1526 /* No properties on this first interval -- return if | |
17467
98c47e7857f3
Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents:
16679
diff
changeset
|
1527 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
|
1528 if (! interval_has_some_properties (properties, i)) |
1029 | 1529 { |
1530 int got = (LENGTH (i) - (s - i->position)); | |
1531 if (got >= len) | |
1532 return Qnil; | |
1533 len -= got; | |
3858
e07d474bdba9
(Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
3698
diff
changeset
|
1534 i = next_interval (i); |
1029 | 1535 } |
3553
5f9688c0b704
(Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents:
2783
diff
changeset
|
1536 /* 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
|
1537 want to modify. */ |
1029 | 1538 else |
1539 { | |
1540 unchanged = i; | |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1541 i = split_interval_right (unchanged, s - unchanged->position); |
1029 | 1542 copy_properties (unchanged, i); |
1543 } | |
1544 } | |
1545 | |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1546 if (BUFFERP (object)) |
72592
f6de516bbb4b
* buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents:
72005
diff
changeset
|
1547 modify_region (XBUFFER (object), XINT (start), XINT (end), 1); |
16331
32a51f7ba384
(set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents:
16103
diff
changeset
|
1548 |
1029 | 1549 /* 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
|
1550 for (;;) |
1029 | 1551 { |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1552 if (i == 0) |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1553 abort (); |
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
1554 |
1029 | 1555 if (LENGTH (i) >= len) |
1556 { | |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1557 if (! interval_has_some_properties (properties, i)) |
1029 | 1558 return modified ? Qt : Qnil; |
1559 | |
1560 if (LENGTH (i) == len) | |
1561 { | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1562 remove_properties (properties, Qnil, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1563 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1564 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
|
1565 XINT (end) - XINT (start)); |
1029 | 1566 return Qt; |
1567 } | |
1568 | |
1569 /* 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
|
1570 unchanged = i; |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1571 i = split_interval_left (i, len); |
1029 | 1572 copy_properties (unchanged, i); |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1573 remove_properties (properties, Qnil, i, object); |
16339
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1574 if (BUFFERP (object)) |
abcd50093b4e
(Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents:
16331
diff
changeset
|
1575 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
|
1576 XINT (end) - XINT (start)); |
1029 | 1577 return Qt; |
1578 } | |
1579 | |
1580 len -= LENGTH (i); | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1581 modified += remove_properties (properties, Qnil, i, object); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1582 i = next_interval (i); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1583 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1584 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1585 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1586 DEFUN ("remove-list-of-text-properties", Fremove_list_of_text_properties, |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1587 Sremove_list_of_text_properties, 3, 4, 0, |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1588 doc: /* Remove some properties from text from START to END. |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1589 The third argument LIST-OF-PROPERTIES is a list of property names to remove. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1590 If the optional fourth argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1591 the current buffer), START and END are buffer positions (integers or |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1592 markers). If OBJECT is a string, START and END are 0-based indices into it. |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1593 Return t if any property was actually removed, nil otherwise. */) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1594 (start, end, list_of_properties, object) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1595 Lisp_Object start, end, list_of_properties, object; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1596 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1597 register INTERVAL i, unchanged; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1598 register int s, len, modified = 0; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1599 Lisp_Object properties; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1600 properties = list_of_properties; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1601 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1602 if (NILP (object)) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1603 XSETBUFFER (object, current_buffer); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1604 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1605 i = validate_interval_range (object, &start, &end, soft); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1606 if (NULL_INTERVAL_P (i)) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1607 return Qnil; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1608 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1609 s = XINT (start); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1610 len = XINT (end) - s; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1611 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1612 if (i->position != s) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1613 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1614 /* No properties on this first interval -- return if |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1615 it covers the entire region. */ |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1616 if (! interval_has_some_properties_list (properties, i)) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1617 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1618 int got = (LENGTH (i) - (s - i->position)); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1619 if (got >= len) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1620 return Qnil; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1621 len -= got; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1622 i = next_interval (i); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1623 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1624 /* Split away the beginning of this interval; what we don't |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1625 want to modify. */ |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1626 else |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1627 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1628 unchanged = i; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1629 i = split_interval_right (unchanged, s - unchanged->position); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1630 copy_properties (unchanged, i); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1631 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1632 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1633 |
70129
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1634 /* We are at the beginning of an interval, with len to scan. |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1635 The flag `modified' records if changes have been made. |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1636 When object is a buffer, we must call modify_region before changes are |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1637 made and signal_after_change when we are done. |
78501 | 1638 We call modify_region before calling remove_properties if modified == 0, |
1639 and we call signal_after_change before returning if modified != 0. */ | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1640 for (;;) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1641 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1642 if (i == 0) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1643 abort (); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1644 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1645 if (LENGTH (i) >= len) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1646 { |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1647 if (! interval_has_some_properties_list (properties, i)) |
70129
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1648 if (modified) |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1649 { |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1650 if (BUFFERP (object)) |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1651 signal_after_change (XINT (start), XINT (end) - XINT (start), |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1652 XINT (end) - XINT (start)); |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1653 return Qt; |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1654 } |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1655 else |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1656 return Qnil; |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1657 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1658 if (LENGTH (i) == len) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1659 { |
70129
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1660 if (!modified && BUFFERP (object)) |
72592
f6de516bbb4b
* buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents:
72005
diff
changeset
|
1661 modify_region (XBUFFER (object), XINT (start), XINT (end), 1); |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1662 remove_properties (Qnil, properties, i, object); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1663 if (BUFFERP (object)) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1664 signal_after_change (XINT (start), XINT (end) - XINT (start), |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1665 XINT (end) - XINT (start)); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1666 return Qt; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1667 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1668 |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1669 /* i has the properties, and goes past the change limit */ |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1670 unchanged = i; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1671 i = split_interval_left (i, len); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1672 copy_properties (unchanged, i); |
70129
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1673 if (!modified && BUFFERP (object)) |
72592
f6de516bbb4b
* buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents:
72005
diff
changeset
|
1674 modify_region (XBUFFER (object), XINT (start), XINT (end), 1); |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1675 remove_properties (Qnil, properties, i, object); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1676 if (BUFFERP (object)) |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1677 signal_after_change (XINT (start), XINT (end) - XINT (start), |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1678 XINT (end) - XINT (start)); |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1679 return Qt; |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1680 } |
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1681 |
70129
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1682 if (interval_has_some_properties_list (properties, i)) |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1683 { |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1684 if (!modified && BUFFERP (object)) |
72592
f6de516bbb4b
* buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents:
72005
diff
changeset
|
1685 modify_region (XBUFFER (object), XINT (start), XINT (end), 1); |
70129
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1686 remove_properties (Qnil, properties, i, object); |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1687 modified = 1; |
af8798ce814c
(Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents:
68651
diff
changeset
|
1688 } |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
1689 len -= LENGTH (i); |
1029 | 1690 i = next_interval (i); |
1691 } | |
1692 } | |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
1693 |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1694 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
|
1695 Stext_property_any, 4, 5, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1696 doc: /* Check text from START to END for property PROPERTY equalling VALUE. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1697 If so, return the position of the first character whose property PROPERTY |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1698 is `eq' to VALUE. Otherwise return nil. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1699 If the optional fifth argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1700 the current buffer), START and END are buffer positions (integers or |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1701 markers). If OBJECT is a string, START and END are 0-based indices into it. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1702 (start, end, property, value, object) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1703 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
|
1704 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1705 register INTERVAL i; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1706 register int e, pos; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1707 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1708 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1709 XSETBUFFER (object, current_buffer); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1710 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
|
1711 if (NULL_INTERVAL_P (i)) |
701e7acfe885
(Ftext_property_any): Handle the trivial case specially.
Karl Heuer <kwzh@gnu.org>
parents:
10312
diff
changeset
|
1712 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
|
1713 e = XINT (end); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1714 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1715 while (! NULL_INTERVAL_P (i)) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1716 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1717 if (i->position >= e) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1718 break; |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1719 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
|
1720 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1721 pos = i->position; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1722 if (pos < XINT (start)) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1723 pos = XINT (start); |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1724 return make_number (pos); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1725 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1726 i = next_interval (i); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1727 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1728 return Qnil; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1729 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1730 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1731 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
|
1732 Stext_property_not_all, 4, 5, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1733 doc: /* Check text from START to END for property PROPERTY not equalling VALUE. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1734 If so, return the position of the first character whose property PROPERTY |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1735 is not `eq' to VALUE. Otherwise, return nil. |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1736 If the optional fifth argument OBJECT is a buffer (or nil, which means |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1737 the current buffer), START and END are buffer positions (integers or |
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1738 markers). If OBJECT is a string, START and END are 0-based indices into it. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1739 (start, end, property, value, object) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1740 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
|
1741 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1742 register INTERVAL i; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1743 register int s, e; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1744 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1745 if (NILP (object)) |
9280
4b238c43e59f
(Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents:
9109
diff
changeset
|
1746 XSETBUFFER (object, current_buffer); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1747 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
|
1748 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
|
1749 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
|
1750 s = XINT (start); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1751 e = XINT (end); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1752 |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1753 while (! NULL_INTERVAL_P (i)) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1754 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1755 if (i->position >= e) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1756 break; |
14088
dc754f92a2a4
(Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1757 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
|
1758 { |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1759 if (i->position > s) |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1760 s = i->position; |
22344
2ec50b4767ed
Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents:
22280
diff
changeset
|
1761 return make_number (s); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1762 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1763 i = next_interval (i); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1764 } |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1765 return Qnil; |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
1766 } |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1767 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1768 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1769 /* Return the direction from which the text-property PROP would be |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1770 inherited by any new text inserted at POS: 1 if it would be |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1771 inherited from the char after POS, -1 if it would be inherited from |
51041
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1772 the char before POS, and 0 if from neither. |
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1773 BUFFER can be either a buffer or nil (meaning current buffer). */ |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1774 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1775 int |
51041
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1776 text_property_stickiness (prop, pos, buffer) |
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1777 Lisp_Object prop, pos, buffer; |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1778 { |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1779 Lisp_Object prev_pos, front_sticky; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1780 int is_rear_sticky = 1, is_front_sticky = 0; /* defaults */ |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1781 |
51041
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1782 if (NILP (buffer)) |
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1783 XSETBUFFER (buffer, current_buffer); |
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1784 |
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1785 if (XINT (pos) > BUF_BEGV (XBUFFER (buffer))) |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1786 /* Consider previous character. */ |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1787 { |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1788 Lisp_Object rear_non_sticky; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1789 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1790 prev_pos = make_number (XINT (pos) - 1); |
51041
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1791 rear_non_sticky = Fget_text_property (prev_pos, Qrear_nonsticky, buffer); |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1792 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1793 if (!NILP (CONSP (rear_non_sticky) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1794 ? Fmemq (prop, rear_non_sticky) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1795 : rear_non_sticky)) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1796 /* PROP is rear-non-sticky. */ |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1797 is_rear_sticky = 0; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1798 } |
71499
51f7fe4f6552
* textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
70656
diff
changeset
|
1799 else |
51f7fe4f6552
* textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
70656
diff
changeset
|
1800 return 0; |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1801 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1802 /* Consider following character. */ |
71499
51f7fe4f6552
* textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
70656
diff
changeset
|
1803 /* This signals an arg-out-of-range error if pos is outside the |
51f7fe4f6552
* textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
70656
diff
changeset
|
1804 buffer's accessible range. */ |
51041
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1805 front_sticky = Fget_text_property (pos, Qfront_sticky, buffer); |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1806 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1807 if (EQ (front_sticky, Qt) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1808 || (CONSP (front_sticky) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1809 && !NILP (Fmemq (prop, front_sticky)))) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1810 /* PROP is inherited from after. */ |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1811 is_front_sticky = 1; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1812 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1813 /* Simple cases, where the properties are consistent. */ |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1814 if (is_rear_sticky && !is_front_sticky) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1815 return -1; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1816 else if (!is_rear_sticky && is_front_sticky) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1817 return 1; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1818 else if (!is_rear_sticky && !is_front_sticky) |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1819 return 0; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1820 |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1821 /* The stickiness properties are inconsistent, so we have to |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1822 disambiguate. Basically, rear-sticky wins, _except_ if the |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1823 property that would be inherited has a value of nil, in which case |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1824 front-sticky wins. */ |
51041
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1825 if (XINT (pos) == BUF_BEGV (XBUFFER (buffer)) |
4370ce3fabb3
(text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49247
diff
changeset
|
1826 || NILP (Fget_text_property (prev_pos, prop, buffer))) |
43896
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1827 return 1; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1828 else |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1829 return -1; |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1830 } |
fccc867cca64
(text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents:
42967
diff
changeset
|
1831 |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
1832 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1833 /* 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
|
1834 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
|
1835 around? |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1836 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1837 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
|
1838 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
|
1839 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
|
1840 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1841 /* 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
|
1842 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
|
1843 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
|
1844 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
|
1845 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
|
1846 |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1847 /* 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
|
1848 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1849 Lisp_Object |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1850 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
|
1851 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
|
1852 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1853 INTERVAL i; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1854 Lisp_Object res; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1855 Lisp_Object stuff; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1856 Lisp_Object plist; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1857 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
|
1858 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
|
1859 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1860 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
|
1861 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
|
1862 return Qnil; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1863 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40647
diff
changeset
|
1864 CHECK_NUMBER_COERCE_MARKER (pos); |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1865 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1866 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
|
1867 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1868 dest_start = pos; |
9321
e6759002383c
(Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents:
9280
diff
changeset
|
1869 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
|
1870 /* 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
|
1871 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
|
1872 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
|
1873 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1874 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1875 s = XINT (start); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1876 e = XINT (end); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1877 p = XINT (pos); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1878 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1879 stuff = Qnil; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1880 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1881 while (s < e) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1882 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1883 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
|
1884 if (e2 > e) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1885 e2 = e; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1886 len = e2 - s; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1887 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1888 plist = i->plist; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1889 if (! NILP (prop)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1890 while (! NILP (plist)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1891 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1892 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
|
1893 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1894 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
|
1895 break; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1896 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1897 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
|
1898 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1899 if (! NILP (plist)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1900 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1901 /* 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
|
1902 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
|
1903 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
|
1904 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
|
1905 Fcons (plist, Qnil))), |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1906 stuff); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1907 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1908 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1909 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
|
1910 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
|
1911 break; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1912 |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1913 p += len; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1914 s = i->position; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1915 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1916 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1917 GCPRO2 (stuff, dest); |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1918 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1919 while (! NILP (stuff)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1920 { |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1921 res = Fcar (stuff); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1922 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
|
1923 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
|
1924 if (! NILP (res)) |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1925 modified++; |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1926 stuff = Fcdr (stuff); |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1927 } |
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1928 |
10159
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1929 UNGCPRO; |
1299d37b51bb
(add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents:
9945
diff
changeset
|
1930 |
4007
55da23f04d01
* textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents:
3998
diff
changeset
|
1931 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
|
1932 } |
25000 | 1933 |
1934 | |
1935 /* Return a list representing the text properties of OBJECT between | |
1936 START and END. if PROP is non-nil, report only on that property. | |
1937 Each result list element has the form (S E PLIST), where S and E | |
1938 are positions in OBJECT and PLIST is a property list containing the | |
1939 text properties of OBJECT between S and E. Value is nil if OBJECT | |
1940 doesn't contain text properties between START and END. */ | |
1941 | |
1942 Lisp_Object | |
1943 text_property_list (object, start, end, prop) | |
1944 Lisp_Object object, start, end, prop; | |
1945 { | |
1946 struct interval *i; | |
1947 Lisp_Object result; | |
1948 | |
1949 result = Qnil; | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1950 |
25000 | 1951 i = validate_interval_range (object, &start, &end, soft); |
1952 if (!NULL_INTERVAL_P (i)) | |
1953 { | |
1954 int s = XINT (start); | |
1955 int e = XINT (end); | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1956 |
25000 | 1957 while (s < e) |
1958 { | |
1959 int interval_end, len; | |
1960 Lisp_Object plist; | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1961 |
25000 | 1962 interval_end = i->position + LENGTH (i); |
1963 if (interval_end > e) | |
1964 interval_end = e; | |
1965 len = interval_end - s; | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1966 |
25000 | 1967 plist = i->plist; |
1968 | |
1969 if (!NILP (prop)) | |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
1970 for (; CONSP (plist); plist = Fcdr (XCDR (plist))) |
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
1971 if (EQ (XCAR (plist), prop)) |
25000 | 1972 { |
85372
f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78501
diff
changeset
|
1973 plist = Fcons (prop, Fcons (Fcar (XCDR (plist)), Qnil)); |
25000 | 1974 break; |
1975 } | |
1976 | |
1977 if (!NILP (plist)) | |
1978 result = Fcons (Fcons (make_number (s), | |
1979 Fcons (make_number (s + len), | |
1980 Fcons (plist, Qnil))), | |
1981 result); | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1982 |
25000 | 1983 i = next_interval (i); |
1984 if (NULL_INTERVAL_P (i)) | |
1985 break; | |
1986 s = i->position; | |
1987 } | |
1988 } | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
1989 |
25000 | 1990 return result; |
1991 } | |
1992 | |
1993 | |
1994 /* Add text properties to OBJECT from LIST. LIST is a list of triples | |
1995 (START END PLIST), where START and END are positions and PLIST is a | |
1996 property list containing the text properties to add. Adjust START | |
1997 and END positions by DELTA before adding properties. Value is | |
1998 non-zero if OBJECT was modified. */ | |
1999 | |
2000 int | |
2001 add_text_properties_from_list (object, list, delta) | |
2002 Lisp_Object object, list, delta; | |
2003 { | |
2004 struct gcpro gcpro1, gcpro2; | |
2005 int modified_p = 0; | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2006 |
25000 | 2007 GCPRO2 (list, object); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2008 |
25000 | 2009 for (; CONSP (list); list = XCDR (list)) |
2010 { | |
2011 Lisp_Object item, start, end, plist, tem; | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2012 |
25000 | 2013 item = XCAR (list); |
2014 start = make_number (XINT (XCAR (item)) + XINT (delta)); | |
2015 end = make_number (XINT (XCAR (XCDR (item))) + XINT (delta)); | |
2016 plist = XCAR (XCDR (XCDR (item))); | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2017 |
25000 | 2018 tem = Fadd_text_properties (start, end, plist, object); |
2019 if (!NILP (tem)) | |
2020 modified_p = 1; | |
2021 } | |
2022 | |
2023 UNGCPRO; | |
2024 return modified_p; | |
2025 } | |
2026 | |
2027 | |
2028 | |
2029 /* Modify end-points of ranges in LIST destructively. LIST is a list | |
2030 as returned from text_property_list. Change end-points equal to | |
2031 OLD_END to NEW_END. */ | |
2032 | |
2033 void | |
2034 extend_property_ranges (list, old_end, new_end) | |
2035 Lisp_Object list, old_end, new_end; | |
2036 { | |
2037 for (; CONSP (list); list = XCDR (list)) | |
2038 { | |
2039 Lisp_Object item, end; | |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2040 |
25000 | 2041 item = XCAR (list); |
2042 end = XCAR (XCDR (item)); | |
2043 | |
2044 if (EQ (end, old_end)) | |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39527
diff
changeset
|
2045 XSETCAR (XCDR (item), new_end); |
25000 | 2046 } |
2047 } | |
2048 | |
2049 | |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2050 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2051 /* 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
|
2052 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2053 static void |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2054 call_mod_hooks (list, start, end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2055 Lisp_Object list, start, end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2056 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2057 struct gcpro gcpro1; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2058 GCPRO1 (list); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2059 while (!NILP (list)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2060 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2061 call2 (Fcar (list), start, end); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2062 list = Fcdr (list); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2063 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2064 UNGCPRO; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2065 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2066 |
20522
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
2067 /* 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
|
2068 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
|
2069 |
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
2070 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
|
2071 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
|
2072 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
|
2073 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
|
2074 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2075 void |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2076 verify_interval_modification (buf, start, end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2077 struct buffer *buf; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2078 int start, end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2079 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2080 register INTERVAL intervals = BUF_INTERVALS (buf); |
25772
1902e7e63fa7
(Fset_text_properties): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
2081 register INTERVAL i; |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2082 Lisp_Object hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2083 register Lisp_Object prev_mod_hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2084 Lisp_Object mod_hooks; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2085 struct gcpro gcpro1; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2086 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2087 hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2088 prev_mod_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2089 mod_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2090 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2091 interval_insert_behind_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2092 interval_insert_in_front_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2093 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2094 if (NULL_INTERVAL_P (intervals)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2095 return; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2096 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2097 if (start > end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2098 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2099 int temp = start; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2100 start = end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2101 end = temp; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2102 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2103 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2104 /* 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
|
2105 if (start == end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2106 { |
33952
ca22422634ac
(text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32849
diff
changeset
|
2107 INTERVAL prev = NULL; |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2108 Lisp_Object before, after; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2109 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2110 /* 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
|
2111 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
|
2112 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
|
2113 i = find_interval (intervals, start); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2114 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2115 if (start == BUF_BEGV (buf)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2116 prev = 0; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2117 else if (i->position == start) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2118 prev = previous_interval (i); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2119 else if (i->position < start) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2120 prev = i; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2121 if (start == BUF_ZV (buf)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2122 i = 0; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2123 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2124 /* 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
|
2125 skip the read_only checks. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2126 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
|
2127 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2128 /* 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
|
2129 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
|
2130 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
|
2131 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
|
2132 indirectly defined via the category property. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2133 if (i != prev) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2134 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2135 if (! NULL_INTERVAL_P (i)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2136 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2137 after = textget (i->plist, Qread_only); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2138 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2139 /* 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
|
2140 front-sticky, inhibit insertion. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2141 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
|
2142 if (! NILP (after) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2143 && NILP (Fmemq (after, Vinhibit_read_only))) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2144 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2145 Lisp_Object tem; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2146 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2147 tem = textget (i->plist, Qfront_sticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2148 if (TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2149 || (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
|
2150 && TMEM (Qcategory, tem))) |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
2151 text_read_only (after); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2152 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2153 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2154 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2155 if (! NULL_INTERVAL_P (prev)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2156 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2157 before = textget (prev->plist, Qread_only); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2158 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2159 /* 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
|
2160 rear-nonsticky, inhibit insertion. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2161 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
|
2162 if (! NILP (before) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2163 && NILP (Fmemq (before, Vinhibit_read_only))) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2164 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2165 Lisp_Object tem; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2166 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2167 tem = textget (prev->plist, Qrear_nonsticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2168 if (! TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2169 && (! 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
|
2170 || ! TMEM (Qcategory, tem))) |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
2171 text_read_only (before); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2172 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2173 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2174 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2175 else if (! NULL_INTERVAL_P (i)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2176 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2177 after = textget (i->plist, Qread_only); |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2178 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2179 /* 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
|
2180 front-sticky, inhibit insertion. |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2181 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
|
2182 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
|
2183 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2184 Lisp_Object tem; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2185 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2186 tem = textget (i->plist, Qfront_sticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2187 if (TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2188 || (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
|
2189 && TMEM (Qcategory, tem))) |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
2190 text_read_only (after); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2191 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2192 tem = textget (prev->plist, Qrear_nonsticky); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2193 if (! TMEM (Qread_only, tem) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2194 && (! 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
|
2195 || ! TMEM (Qcategory, tem))) |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
2196 text_read_only (after); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2197 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2198 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2199 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2200 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2201 /* 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
|
2202 if (!NULL_INTERVAL_P (prev)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2203 interval_insert_behind_hooks |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2204 = textget (prev->plist, Qinsert_behind_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2205 if (!NULL_INTERVAL_P (i)) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2206 interval_insert_in_front_hooks |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2207 = 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
|
2208 } |
39247
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2209 else |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2210 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2211 /* 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
|
2212 collecting their hooks. */ |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2213 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2214 i = find_interval (intervals, start); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2215 do |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2216 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2217 if (! INTERVAL_WRITABLE_P (i)) |
48840
b6981c46191d
(text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46448
diff
changeset
|
2218 text_read_only (textget (i->plist, Qread_only)); |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2219 |
39247
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2220 if (!inhibit_modification_hooks) |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2221 { |
39247
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2222 mod_hooks = textget (i->plist, Qmodification_hooks); |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2223 if (! NILP (mod_hooks) && ! EQ (mod_hooks, prev_mod_hooks)) |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2224 { |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2225 hooks = Fcons (mod_hooks, hooks); |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2226 prev_mod_hooks = mod_hooks; |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2227 } |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2228 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2229 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2230 i = next_interval (i); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2231 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2232 /* 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
|
2233 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
|
2234 |
39247
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2235 if (!inhibit_modification_hooks) |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2236 { |
39247
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2237 GCPRO1 (hooks); |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2238 hooks = Fnreverse (hooks); |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2239 while (! EQ (hooks, Qnil)) |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2240 { |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2241 call_mod_hooks (Fcar (hooks), make_number (start), |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2242 make_number (end)); |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2243 hooks = Fcdr (hooks); |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2244 } |
989367eb5ce1
(verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39242
diff
changeset
|
2245 UNGCPRO; |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2246 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2247 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2248 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2249 |
20522
4409f95651d1
(Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18736
diff
changeset
|
2250 /* 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
|
2251 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
|
2252 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
|
2253 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
|
2254 |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2255 void |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2256 report_interval_modification (start, end) |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2257 Lisp_Object start, end; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2258 { |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2259 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
|
2260 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
|
2261 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
|
2262 && ! EQ (interval_insert_in_front_hooks, |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2263 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
|
2264 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
|
2265 } |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2266 |
1029 | 2267 void |
2268 syms_of_textprop () | |
2269 { | |
11131
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
2270 DEFVAR_LISP ("default-text-properties", &Vdefault_text_properties, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2271 doc: /* Property-list used as default values. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2272 The value of a property in this list is seen as the value for every |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2273 character that does not have its own value for that property. */); |
11131
5db8a01b22cb
(Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents:
11116
diff
changeset
|
2274 Vdefault_text_properties = Qnil; |
10925
0480d65be55d
(Vdefault_properties): New vbl.
Boris Goldowsky <boris@gnu.org>
parents:
10488
diff
changeset
|
2275 |
45680
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2276 DEFVAR_LISP ("char-property-alias-alist", &Vchar_property_alias_alist, |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2277 doc: /* Alist of alternative properties for properties without a value. |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2278 Each element should look like (PROPERTY ALTERNATIVE1 ALTERNATIVE2...). |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2279 If a piece of text has no direct value for a particular property, then |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2280 this alist is consulted. If that property appears in the alist, then |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2281 the first non-nil value from the associated alternative properties is |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2282 returned. */); |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2283 Vchar_property_alias_alist = Qnil; |
c9e70e34b426
(Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents:
44976
diff
changeset
|
2284 |
4242
49007dbbec4c
(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents:
4214
diff
changeset
|
2285 DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2286 doc: /* If non-nil, don't run `point-left' and `point-entered' text properties. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2287 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
|
2288 Vinhibit_point_motion_hooks = Qnil; |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2289 |
26872
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
2290 DEFVAR_LISP ("text-property-default-nonsticky", |
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
2291 &Vtext_property_default_nonsticky, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2292 doc: /* Alist of properties vs the corresponding non-stickinesses. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2293 Each element has the form (PROPERTY . NONSTICKINESS). |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2294 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2295 If a character in a buffer has PROPERTY, new text inserted adjacent to |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2296 the character doesn't inherit PROPERTY if NONSTICKINESS is non-nil, |
95453
ca950c418cdd
(syms_of_textprop) <text-property-default-nonsticky>:
Juanma Barranquero <lekktu@gmail.com>
parents:
94963
diff
changeset
|
2297 inherits it if NONSTICKINESS is nil. The `front-sticky' and |
ca950c418cdd
(syms_of_textprop) <text-property-default-nonsticky>:
Juanma Barranquero <lekktu@gmail.com>
parents:
94963
diff
changeset
|
2298 `rear-nonsticky' properties of the character override NONSTICKINESS. */); |
57477
c4f6faab46b0
(syms_of_textprop): Add `syntax-table' to the nonsticky props.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55652
diff
changeset
|
2299 /* Text property `syntax-table' should be nonsticky by default. */ |
c4f6faab46b0
(syms_of_textprop): Add `syntax-table' to the nonsticky props.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55652
diff
changeset
|
2300 Vtext_property_default_nonsticky |
c4f6faab46b0
(syms_of_textprop): Add `syntax-table' to the nonsticky props.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55652
diff
changeset
|
2301 = Fcons (Fcons (intern ("syntax-table"), Qt), Qnil); |
26872
ea588757e607
(Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents:
26605
diff
changeset
|
2302 |
13027
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2303 staticpro (&interval_insert_behind_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2304 staticpro (&interval_insert_in_front_hooks); |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2305 interval_insert_behind_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2306 interval_insert_in_front_hooks = Qnil; |
48358e0fa98e
(call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents:
12641
diff
changeset
|
2307 |
49247
5856f0179746
(Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents:
48840
diff
changeset
|
2308 |
1029 | 2309 /* Common attributes one might give text */ |
2310 | |
2311 staticpro (&Qforeground); | |
2312 Qforeground = intern ("foreground"); | |
2313 staticpro (&Qbackground); | |
2314 Qbackground = intern ("background"); | |
2315 staticpro (&Qfont); | |
2316 Qfont = intern ("font"); | |
2317 staticpro (&Qstipple); | |
2318 Qstipple = intern ("stipple"); | |
2319 staticpro (&Qunderline); | |
2320 Qunderline = intern ("underline"); | |
2321 staticpro (&Qread_only); | |
2322 Qread_only = intern ("read-only"); | |
2323 staticpro (&Qinvisible); | |
2324 Qinvisible = intern ("invisible"); | |
6755
a2bccbc870e6
(syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents:
6681
diff
changeset
|
2325 staticpro (&Qintangible); |
a2bccbc870e6
(syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents:
6681
diff
changeset
|
2326 Qintangible = intern ("intangible"); |
2058
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
2327 staticpro (&Qcategory); |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
2328 Qcategory = intern ("category"); |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
2329 staticpro (&Qlocal_map); |
a43d0bb1b7d8
(Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents:
2053
diff
changeset
|
2330 Qlocal_map = intern ("local-map"); |
4381
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
2331 staticpro (&Qfront_sticky); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
2332 Qfront_sticky = intern ("front-sticky"); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
2333 staticpro (&Qrear_nonsticky); |
b0556af4d680
(Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
4242
diff
changeset
|
2334 Qrear_nonsticky = intern ("rear-nonsticky"); |
23729
cf1cbb0e5d5b
(Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents:
22344
diff
changeset
|
2335 staticpro (&Qmouse_face); |
cf1cbb0e5d5b
(Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents:
22344
diff
changeset
|
2336 Qmouse_face = intern ("mouse-face"); |
1029 | 2337 |
2338 /* Properties that text might use to specify certain actions */ | |
2339 | |
2340 staticpro (&Qmouse_left); | |
2341 Qmouse_left = intern ("mouse-left"); | |
2342 staticpro (&Qmouse_entered); | |
2343 Qmouse_entered = intern ("mouse-entered"); | |
2344 staticpro (&Qpoint_left); | |
2345 Qpoint_left = intern ("point-left"); | |
2346 staticpro (&Qpoint_entered); | |
2347 Qpoint_entered = intern ("point-entered"); | |
2348 | |
2349 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
|
2350 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
|
2351 defsubr (&Sget_char_property); |
53201
c90162ba57c6
(Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
2352 defsubr (&Sget_char_property_and_overlay); |
16679
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
2353 defsubr (&Snext_char_property_change); |
38c158927e6f
(Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16339
diff
changeset
|
2354 defsubr (&Sprevious_char_property_change); |
30242
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
2355 defsubr (&Snext_single_char_property_change); |
6af73af0f1ef
(Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents:
29342
diff
changeset
|
2356 defsubr (&Sprevious_single_char_property_change); |
1029 | 2357 defsubr (&Snext_property_change); |
1211 | 2358 defsubr (&Snext_single_property_change); |
1029 | 2359 defsubr (&Sprevious_property_change); |
1211 | 2360 defsubr (&Sprevious_single_property_change); |
1029 | 2361 defsubr (&Sadd_text_properties); |
1965
2bdbd6ed2430
(Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents:
1930
diff
changeset
|
2362 defsubr (&Sput_text_property); |
1029 | 2363 defsubr (&Sset_text_properties); |
2364 defsubr (&Sremove_text_properties); | |
44673
01f74663f76e
(remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents:
43896
diff
changeset
|
2365 defsubr (&Sremove_list_of_text_properties); |
4144
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
2366 defsubr (&Stext_property_any); |
8f5545cf9774
* intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents:
4076
diff
changeset
|
2367 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
|
2368 /* 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
|
2369 /* defsubr (&Scopy_text_properties); */ |
1029 | 2370 } |
52401 | 2371 |
2372 /* arch-tag: 454cdde8-5f86-4faa-a078-101e3625d479 | |
2373 (do not change this comment) */ |