Mercurial > emacs
annotate src/insdel.c @ 9006:186aff8c1f51
(evaporate_overlays): Overlay is in car, not cdr.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 22 Sep 1994 19:20:52 +0000 |
parents | 7242936baf4e |
children | 405b269631c3 |
rev | line source |
---|---|
157 | 1 /* Buffer insertion/deletion and gap motion for GNU Emacs. |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
2 Copyright (C) 1985, 1986, 1993, 1994 Free Software Foundation, Inc. |
157 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 1, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4078
diff
changeset
|
21 #include <config.h> |
157 | 22 #include "lisp.h" |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
23 #include "intervals.h" |
157 | 24 #include "buffer.h" |
25 #include "window.h" | |
2480 | 26 #include "blockinput.h" |
157 | 27 |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
28 static void insert_1 (); |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
29 static void insert_from_string_1 (); |
7108 | 30 static void gap_left (); |
31 static void gap_right (); | |
32 static void adjust_markers (); | |
7109 | 33 static void adjust_point (); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
34 |
157 | 35 /* Move gap to position `pos'. |
36 Note that this can quit! */ | |
37 | |
38 move_gap (pos) | |
39 int pos; | |
40 { | |
41 if (pos < GPT) | |
42 gap_left (pos, 0); | |
43 else if (pos > GPT) | |
44 gap_right (pos); | |
45 } | |
46 | |
47 /* Move the gap to POS, which is less than the current GPT. | |
48 If NEWGAP is nonzero, then don't update beg_unchanged and end_unchanged. */ | |
49 | |
7108 | 50 static void |
157 | 51 gap_left (pos, newgap) |
52 register int pos; | |
53 int newgap; | |
54 { | |
55 register unsigned char *to, *from; | |
56 register int i; | |
57 int new_s1; | |
58 | |
59 pos--; | |
60 | |
61 if (!newgap) | |
62 { | |
63 if (unchanged_modified == MODIFF) | |
64 { | |
65 beg_unchanged = pos; | |
66 end_unchanged = Z - pos - 1; | |
67 } | |
68 else | |
69 { | |
70 if (Z - GPT < end_unchanged) | |
71 end_unchanged = Z - GPT; | |
72 if (pos < beg_unchanged) | |
73 beg_unchanged = pos; | |
74 } | |
75 } | |
76 | |
77 i = GPT; | |
78 to = GAP_END_ADDR; | |
79 from = GPT_ADDR; | |
80 new_s1 = GPT - BEG; | |
81 | |
82 /* Now copy the characters. To move the gap down, | |
83 copy characters up. */ | |
84 | |
85 while (1) | |
86 { | |
87 /* I gets number of characters left to copy. */ | |
88 i = new_s1 - pos; | |
89 if (i == 0) | |
90 break; | |
91 /* If a quit is requested, stop copying now. | |
92 Change POS to be where we have actually moved the gap to. */ | |
93 if (QUITP) | |
94 { | |
95 pos = new_s1; | |
96 break; | |
97 } | |
98 /* Move at most 32000 chars before checking again for a quit. */ | |
99 if (i > 32000) | |
100 i = 32000; | |
101 #ifdef GAP_USE_BCOPY | |
102 if (i >= 128 | |
103 /* bcopy is safe if the two areas of memory do not overlap | |
104 or on systems where bcopy is always safe for moving upward. */ | |
105 && (BCOPY_UPWARD_SAFE | |
106 || to - from >= 128)) | |
107 { | |
108 /* If overlap is not safe, avoid it by not moving too many | |
109 characters at once. */ | |
110 if (!BCOPY_UPWARD_SAFE && i > to - from) | |
111 i = to - from; | |
112 new_s1 -= i; | |
113 from -= i, to -= i; | |
114 bcopy (from, to, i); | |
115 } | |
116 else | |
117 #endif | |
118 { | |
119 new_s1 -= i; | |
120 while (--i >= 0) | |
121 *--to = *--from; | |
122 } | |
123 } | |
124 | |
125 /* Adjust markers, and buffer data structure, to put the gap at POS. | |
126 POS is where the loop above stopped, which may be what was specified | |
127 or may be where a quit was detected. */ | |
128 adjust_markers (pos + 1, GPT, GAP_SIZE); | |
129 GPT = pos + 1; | |
130 QUIT; | |
131 } | |
132 | |
7108 | 133 static void |
157 | 134 gap_right (pos) |
135 register int pos; | |
136 { | |
137 register unsigned char *to, *from; | |
138 register int i; | |
139 int new_s1; | |
140 | |
141 pos--; | |
142 | |
143 if (unchanged_modified == MODIFF) | |
144 { | |
145 beg_unchanged = pos; | |
146 end_unchanged = Z - pos - 1; | |
147 } | |
148 else | |
149 { | |
150 if (Z - pos - 1 < end_unchanged) | |
151 end_unchanged = Z - pos - 1; | |
152 if (GPT - BEG < beg_unchanged) | |
153 beg_unchanged = GPT - BEG; | |
154 } | |
155 | |
156 i = GPT; | |
157 from = GAP_END_ADDR; | |
158 to = GPT_ADDR; | |
159 new_s1 = GPT - 1; | |
160 | |
161 /* Now copy the characters. To move the gap up, | |
162 copy characters down. */ | |
163 | |
164 while (1) | |
165 { | |
166 /* I gets number of characters left to copy. */ | |
167 i = pos - new_s1; | |
168 if (i == 0) | |
169 break; | |
170 /* If a quit is requested, stop copying now. | |
171 Change POS to be where we have actually moved the gap to. */ | |
172 if (QUITP) | |
173 { | |
174 pos = new_s1; | |
175 break; | |
176 } | |
177 /* Move at most 32000 chars before checking again for a quit. */ | |
178 if (i > 32000) | |
179 i = 32000; | |
180 #ifdef GAP_USE_BCOPY | |
181 if (i >= 128 | |
182 /* bcopy is safe if the two areas of memory do not overlap | |
183 or on systems where bcopy is always safe for moving downward. */ | |
184 && (BCOPY_DOWNWARD_SAFE | |
185 || from - to >= 128)) | |
186 { | |
187 /* If overlap is not safe, avoid it by not moving too many | |
188 characters at once. */ | |
189 if (!BCOPY_DOWNWARD_SAFE && i > from - to) | |
190 i = from - to; | |
191 new_s1 += i; | |
192 bcopy (from, to, i); | |
193 from += i, to += i; | |
194 } | |
195 else | |
196 #endif | |
197 { | |
198 new_s1 += i; | |
199 while (--i >= 0) | |
200 *to++ = *from++; | |
201 } | |
202 } | |
203 | |
204 adjust_markers (GPT + GAP_SIZE, pos + 1 + GAP_SIZE, - GAP_SIZE); | |
205 GPT = pos + 1; | |
206 QUIT; | |
207 } | |
208 | |
209 /* Add `amount' to the position of every marker in the current buffer | |
210 whose current position is between `from' (exclusive) and `to' (inclusive). | |
211 Also, any markers past the outside of that interval, in the direction | |
212 of adjustment, are first moved back to the near end of the interval | |
213 and then adjusted by `amount'. */ | |
214 | |
7108 | 215 static void |
157 | 216 adjust_markers (from, to, amount) |
217 register int from, to, amount; | |
218 { | |
219 Lisp_Object marker; | |
220 register struct Lisp_Marker *m; | |
221 register int mpos; | |
222 | |
223 marker = current_buffer->markers; | |
224 | |
484 | 225 while (!NILP (marker)) |
157 | 226 { |
227 m = XMARKER (marker); | |
228 mpos = m->bufpos; | |
229 if (amount > 0) | |
230 { | |
231 if (mpos > to && mpos < to + amount) | |
232 mpos = to + amount; | |
233 } | |
234 else | |
235 { | |
236 if (mpos > from + amount && mpos <= from) | |
237 mpos = from + amount; | |
238 } | |
239 if (mpos > from && mpos <= to) | |
240 mpos += amount; | |
241 m->bufpos = mpos; | |
242 marker = m->chain; | |
243 } | |
244 } | |
7109 | 245 |
246 /* Add the specified amount to point. This is used only when the value | |
247 of point changes due to an insert or delete; it does not represent | |
248 a conceptual change in point as a marker. In particular, point is | |
249 not crossing any interval boundaries, so there's no need to use the | |
250 usual SET_PT macro. In fact it would be incorrect to do so, because | |
251 either the old or the new value of point is out of synch with the | |
252 current set of intervals. */ | |
253 static void | |
254 adjust_point (amount) | |
255 { | |
256 current_buffer->text.pt += amount; | |
257 } | |
157 | 258 |
259 /* Make the gap INCREMENT characters longer. */ | |
260 | |
261 make_gap (increment) | |
262 int increment; | |
263 { | |
264 unsigned char *result; | |
265 Lisp_Object tem; | |
266 int real_gap_loc; | |
267 int old_gap_size; | |
268 | |
269 /* If we have to get more space, get enough to last a while. */ | |
270 increment += 2000; | |
271 | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2050
diff
changeset
|
272 BLOCK_INPUT; |
157 | 273 result = BUFFER_REALLOC (BEG_ADDR, (Z - BEG + GAP_SIZE + increment)); |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2050
diff
changeset
|
274 UNBLOCK_INPUT; |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2050
diff
changeset
|
275 |
157 | 276 if (result == 0) |
277 memory_full (); | |
278 BEG_ADDR = result; | |
279 | |
280 /* Prevent quitting in move_gap. */ | |
281 tem = Vinhibit_quit; | |
282 Vinhibit_quit = Qt; | |
283 | |
284 real_gap_loc = GPT; | |
285 old_gap_size = GAP_SIZE; | |
286 | |
287 /* Call the newly allocated space a gap at the end of the whole space. */ | |
288 GPT = Z + GAP_SIZE; | |
289 GAP_SIZE = increment; | |
290 | |
291 /* Move the new gap down to be consecutive with the end of the old one. | |
292 This adjusts the markers properly too. */ | |
293 gap_left (real_gap_loc + old_gap_size, 1); | |
294 | |
295 /* Now combine the two into one large gap. */ | |
296 GAP_SIZE += old_gap_size; | |
297 GPT = real_gap_loc; | |
298 | |
299 Vinhibit_quit = tem; | |
300 } | |
301 | |
302 /* Insert a string of specified length before point. | |
303 DO NOT use this for the contents of a Lisp string! | |
304 prepare_to_modify_buffer could relocate the string. */ | |
305 | |
306 insert (string, length) | |
307 register unsigned char *string; | |
308 register length; | |
309 { | |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
310 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
311 { |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
312 insert_1 (string, length, 0); |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
313 signal_after_change (PT-length, 0, length); |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
314 } |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
315 } |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
316 |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
317 insert_and_inherit (string, length) |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
318 register unsigned char *string; |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
319 register length; |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
320 { |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
321 if (length > 0) |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
322 { |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
323 insert_1 (string, length, 1); |
7108 | 324 signal_after_change (PT-length, 0, length); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
325 } |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
326 } |
157 | 327 |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
328 static void |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
329 insert_1 (string, length, inherit) |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
330 register unsigned char *string; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
331 register length; |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
332 int inherit; |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
333 { |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
334 register Lisp_Object temp; |
157 | 335 |
336 /* Make sure point-max won't overflow after this insertion. */ | |
337 XSET (temp, Lisp_Int, length + Z); | |
338 if (length + Z != XINT (temp)) | |
339 error ("maximum buffer size exceeded"); | |
340 | |
7108 | 341 prepare_to_modify_buffer (PT, PT); |
157 | 342 |
7108 | 343 if (PT != GPT) |
344 move_gap (PT); | |
157 | 345 if (GAP_SIZE < length) |
346 make_gap (length - GAP_SIZE); | |
347 | |
7108 | 348 record_insert (PT, length); |
157 | 349 MODIFF++; |
350 | |
351 bcopy (string, GPT_ADDR, length); | |
352 | |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
353 #ifdef USE_TEXT_PROPERTIES |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
354 if (current_buffer->intervals != 0) |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
355 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES. */ |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
356 offset_intervals (current_buffer, PT, length); |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
357 #endif |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
358 |
157 | 359 GAP_SIZE -= length; |
360 GPT += length; | |
361 ZV += length; | |
362 Z += length; | |
7109 | 363 adjust_point (length); |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
364 |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
365 #ifdef USE_TEXT_PROPERTIES |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
366 if (!inherit && current_buffer->intervals != 0) |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
367 Fset_text_properties (make_number (PT - length), make_number (PT), |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
368 Qnil, Qnil); |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
369 #endif |
157 | 370 } |
371 | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
372 /* Insert the part of the text of STRING, a Lisp object assumed to be |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
373 of type string, consisting of the LENGTH characters starting at |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
374 position POS. If the text of STRING has properties, they are absorbed |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
375 into the buffer. |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
376 |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
377 It does not work to use `insert' for this, because a GC could happen |
251 | 378 before we bcopy the stuff into the buffer, and relocate the string |
379 without insert noticing. */ | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
380 |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
381 insert_from_string (string, pos, length, inherit) |
157 | 382 Lisp_Object string; |
383 register int pos, length; | |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
384 int inherit; |
157 | 385 { |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
386 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
387 { |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
388 insert_from_string_1 (string, pos, length, inherit); |
7108 | 389 signal_after_change (PT-length, 0, length); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
390 } |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
391 } |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
392 |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
393 static void |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
394 insert_from_string_1 (string, pos, length, inherit) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
395 Lisp_Object string; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
396 register int pos, length; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
397 int inherit; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
398 { |
157 | 399 register Lisp_Object temp; |
400 struct gcpro gcpro1; | |
401 | |
402 /* Make sure point-max won't overflow after this insertion. */ | |
403 XSET (temp, Lisp_Int, length + Z); | |
404 if (length + Z != XINT (temp)) | |
405 error ("maximum buffer size exceeded"); | |
406 | |
407 GCPRO1 (string); | |
7108 | 408 prepare_to_modify_buffer (PT, PT); |
157 | 409 |
7108 | 410 if (PT != GPT) |
411 move_gap (PT); | |
157 | 412 if (GAP_SIZE < length) |
413 make_gap (length - GAP_SIZE); | |
414 | |
7108 | 415 record_insert (PT, length); |
157 | 416 MODIFF++; |
417 UNGCPRO; | |
418 | |
419 bcopy (XSTRING (string)->data, GPT_ADDR, length); | |
420 | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
421 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
7108 | 422 offset_intervals (current_buffer, PT, length); |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
423 |
157 | 424 GAP_SIZE -= length; |
425 GPT += length; | |
426 ZV += length; | |
427 Z += length; | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
428 |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
429 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
7108 | 430 graft_intervals_into_buffer (XSTRING (string)->intervals, PT, length, |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
431 current_buffer, inherit); |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
432 |
7109 | 433 adjust_point (length); |
157 | 434 } |
435 | |
436 /* Insert the character C before point */ | |
437 | |
438 void | |
439 insert_char (c) | |
440 unsigned char c; | |
441 { | |
442 insert (&c, 1); | |
443 } | |
444 | |
445 /* Insert the null-terminated string S before point */ | |
446 | |
447 void | |
448 insert_string (s) | |
449 char *s; | |
450 { | |
451 insert (s, strlen (s)); | |
452 } | |
453 | |
454 /* Like `insert' except that all markers pointing at the place where | |
455 the insertion happens are adjusted to point after it. | |
456 Don't use this function to insert part of a Lisp string, | |
457 since gc could happen and relocate it. */ | |
458 | |
459 insert_before_markers (string, length) | |
460 unsigned char *string; | |
461 register int length; | |
462 { | |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
463 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
464 { |
7108 | 465 register int opoint = PT; |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
466 insert_1 (string, length, 1); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
467 adjust_markers (opoint - 1, opoint, length); |
7108 | 468 signal_after_change (PT-length, 0, length); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
469 } |
157 | 470 } |
471 | |
8668
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
472 insert_before_markers_and_inherit (string, length) |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
473 unsigned char *string; |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
474 register int length; |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
475 { |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
476 if (length > 0) |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
477 { |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
478 register int opoint = PT; |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
479 insert_1 (string, length, 1); |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
480 adjust_markers (opoint - 1, opoint, length); |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
481 signal_after_change (PT-length, 0, length); |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
482 } |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
483 } |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
484 |
157 | 485 /* Insert part of a Lisp string, relocating markers after. */ |
486 | |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
487 insert_from_string_before_markers (string, pos, length, inherit) |
157 | 488 Lisp_Object string; |
489 register int pos, length; | |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
490 int inherit; |
157 | 491 { |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
492 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
493 { |
7108 | 494 register int opoint = PT; |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
495 insert_from_string_1 (string, pos, length, inherit); |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
496 adjust_markers (opoint - 1, opoint, length); |
7108 | 497 signal_after_change (PT-length, 0, length); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
498 } |
157 | 499 } |
500 | |
501 /* Delete characters in current buffer | |
502 from FROM up to (but not including) TO. */ | |
503 | |
504 del_range (from, to) | |
505 register int from, to; | |
506 { | |
6126
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
507 return del_range_1 (from, to, 1); |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
508 } |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
509 |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
510 /* Like del_range; PREPARE says whether to call prepare_to_modify_buffer. */ |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
511 |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
512 del_range_1 (from, to, prepare) |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
513 register int from, to, prepare; |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
514 { |
157 | 515 register int numdel; |
516 | |
517 /* Make args be valid */ | |
518 if (from < BEGV) | |
519 from = BEGV; | |
520 if (to > ZV) | |
521 to = ZV; | |
522 | |
523 if ((numdel = to - from) <= 0) | |
524 return; | |
525 | |
526 /* Make sure the gap is somewhere in or next to what we are deleting. */ | |
527 if (from > GPT) | |
528 gap_right (from); | |
529 if (to < GPT) | |
530 gap_left (to, 0); | |
531 | |
6126
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
532 if (prepare) |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
533 prepare_to_modify_buffer (from, to); |
157 | 534 |
1247
8dce1588f37f
(del_range): Call record_delete before updating point.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
535 record_delete (from, numdel); |
8dce1588f37f
(del_range): Call record_delete before updating point.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
536 MODIFF++; |
8dce1588f37f
(del_range): Call record_delete before updating point.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
537 |
157 | 538 /* Relocate point as if it were a marker. */ |
7108 | 539 if (from < PT) |
7109 | 540 adjust_point (from - (PT < to ? PT : to)); |
157 | 541 |
1963
05dd60327cc4
(del_range): Update point before offset_intervals.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
542 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
5237
378540cf056f
(del_range): Second argument in call to
Richard M. Stallman <rms@gnu.org>
parents:
5168
diff
changeset
|
543 offset_intervals (current_buffer, from, - numdel); |
1963
05dd60327cc4
(del_range): Update point before offset_intervals.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
544 |
157 | 545 /* Relocate all markers pointing into the new, larger gap |
546 to point at the end of the text before the gap. */ | |
547 adjust_markers (to + GAP_SIZE, to + GAP_SIZE, - numdel - GAP_SIZE); | |
548 | |
549 GAP_SIZE += numdel; | |
550 ZV -= numdel; | |
551 Z -= numdel; | |
552 GPT = from; | |
553 | |
554 if (GPT - BEG < beg_unchanged) | |
555 beg_unchanged = GPT - BEG; | |
556 if (Z - GPT < end_unchanged) | |
557 end_unchanged = Z - GPT; | |
558 | |
8840
7242936baf4e
(del_range_1): Call evaporate_overlays after deleting text.
Karl Heuer <kwzh@gnu.org>
parents:
8687
diff
changeset
|
559 evaporate_overlays (from); |
157 | 560 signal_after_change (from, numdel, 0); |
561 } | |
562 | |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
563 /* Call this if you're about to change the region of BUFFER from START |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
564 to END. This checks the read-only properties of the region, calls |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
565 the necessary modification hooks, and warns the next redisplay that |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
566 it should pay attention to that area. */ |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
567 modify_region (buffer, start, end) |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
568 struct buffer *buffer; |
157 | 569 int start, end; |
570 { | |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
571 struct buffer *old_buffer = current_buffer; |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
572 |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
573 if (buffer != old_buffer) |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
574 set_buffer_internal (buffer); |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
575 |
157 | 576 prepare_to_modify_buffer (start, end); |
577 | |
578 if (start - 1 < beg_unchanged || unchanged_modified == MODIFF) | |
579 beg_unchanged = start - 1; | |
580 if (Z - end < end_unchanged | |
581 || unchanged_modified == MODIFF) | |
582 end_unchanged = Z - end; | |
5237
378540cf056f
(del_range): Second argument in call to
Richard M. Stallman <rms@gnu.org>
parents:
5168
diff
changeset
|
583 |
378540cf056f
(del_range): Second argument in call to
Richard M. Stallman <rms@gnu.org>
parents:
5168
diff
changeset
|
584 if (MODIFF <= current_buffer->save_modified) |
378540cf056f
(del_range): Second argument in call to
Richard M. Stallman <rms@gnu.org>
parents:
5168
diff
changeset
|
585 record_first_change (); |
157 | 586 MODIFF++; |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
587 |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
588 if (buffer != old_buffer) |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
589 set_buffer_internal (old_buffer); |
157 | 590 } |
591 | |
592 /* Check that it is okay to modify the buffer between START and END. | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
593 Run the before-change-function, if any. If intervals are in use, |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
594 verify that the text to be modified is not read-only, and call |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
595 any modification properties the text may have. */ |
157 | 596 |
597 prepare_to_modify_buffer (start, end) | |
598 Lisp_Object start, end; | |
599 { | |
484 | 600 if (!NILP (current_buffer->read_only)) |
157 | 601 Fbarf_if_buffer_read_only (); |
602 | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
603 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
604 if (current_buffer->intervals != 0) |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
605 verify_interval_modification (current_buffer, start, end); |
157 | 606 |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
607 if (!NILP (current_buffer->overlays_before) |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
608 || !NILP (current_buffer->overlays_after)) |
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
609 verify_overlay_modification (start, end); |
4078
7d7b899db77d
(prepare_to_modify_buffer): Call verify_overlay_modification.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
610 |
157 | 611 #ifdef CLASH_DETECTION |
484 | 612 if (!NILP (current_buffer->filename) |
157 | 613 && current_buffer->save_modified >= MODIFF) |
614 lock_file (current_buffer->filename); | |
615 #else | |
616 /* At least warn if this file has changed on disk since it was visited. */ | |
484 | 617 if (!NILP (current_buffer->filename) |
157 | 618 && current_buffer->save_modified >= MODIFF |
484 | 619 && NILP (Fverify_visited_file_modtime (Fcurrent_buffer ())) |
620 && !NILP (Ffile_exists_p (current_buffer->filename))) | |
157 | 621 call1 (intern ("ask-user-about-supersession-threat"), |
622 current_buffer->filename); | |
623 #endif /* not CLASH_DETECTION */ | |
624 | |
625 signal_before_change (start, end); | |
2050
3ffbf2314074
(prepare_to_modify_buffer): Set Vdeactivate_mark.
Richard M. Stallman <rms@gnu.org>
parents:
2019
diff
changeset
|
626 |
3ffbf2314074
(prepare_to_modify_buffer): Set Vdeactivate_mark.
Richard M. Stallman <rms@gnu.org>
parents:
2019
diff
changeset
|
627 Vdeactivate_mark = Qt; |
157 | 628 } |
629 | |
630 static Lisp_Object | |
631 before_change_function_restore (value) | |
632 Lisp_Object value; | |
633 { | |
634 Vbefore_change_function = value; | |
635 } | |
636 | |
637 static Lisp_Object | |
638 after_change_function_restore (value) | |
639 Lisp_Object value; | |
640 { | |
641 Vafter_change_function = value; | |
642 } | |
643 | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
644 static Lisp_Object |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
645 before_change_functions_restore (value) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
646 Lisp_Object value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
647 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
648 Vbefore_change_functions = value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
649 } |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
650 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
651 static Lisp_Object |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
652 after_change_functions_restore (value) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
653 Lisp_Object value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
654 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
655 Vafter_change_functions = value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
656 } |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
657 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2783
diff
changeset
|
658 /* Signal a change to the buffer immediately before it happens. |
157 | 659 START and END are the bounds of the text to be changed, |
660 as Lisp objects. */ | |
661 | |
662 signal_before_change (start, end) | |
663 Lisp_Object start, end; | |
664 { | |
665 /* If buffer is unmodified, run a special hook for that case. */ | |
666 if (current_buffer->save_modified >= MODIFF | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
667 && !NILP (Vfirst_change_hook) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
668 && !NILP (Vrun_hooks)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
669 call1 (Vrun_hooks, Qfirst_change_hook); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
670 |
157 | 671 /* Now in any case run the before-change-function if any. */ |
484 | 672 if (!NILP (Vbefore_change_function)) |
157 | 673 { |
674 int count = specpdl_ptr - specpdl; | |
675 Lisp_Object function; | |
676 | |
677 function = Vbefore_change_function; | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
678 |
157 | 679 record_unwind_protect (after_change_function_restore, |
680 Vafter_change_function); | |
681 record_unwind_protect (before_change_function_restore, | |
682 Vbefore_change_function); | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
683 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
684 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
685 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
686 Vbefore_change_functions); |
157 | 687 Vafter_change_function = Qnil; |
688 Vbefore_change_function = Qnil; | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
689 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
690 Vbefore_change_functions = Qnil; |
157 | 691 |
692 call2 (function, start, end); | |
693 unbind_to (count, Qnil); | |
694 } | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
695 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
696 /* Now in any case run the before-change-function if any. */ |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
697 if (!NILP (Vbefore_change_functions)) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
698 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
699 int count = specpdl_ptr - specpdl; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
700 Lisp_Object functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
701 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
702 functions = Vbefore_change_functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
703 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
704 record_unwind_protect (after_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
705 Vafter_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
706 record_unwind_protect (before_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
707 Vbefore_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
708 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
709 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
710 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
711 Vbefore_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
712 Vafter_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
713 Vbefore_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
714 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
715 Vbefore_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
716 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
717 while (CONSP (functions)) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
718 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
719 call2 (XCONS (functions)->car, start, end); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
720 functions = XCONS (functions)->cdr; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
721 } |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
722 unbind_to (count, Qnil); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
723 } |
157 | 724 } |
725 | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2783
diff
changeset
|
726 /* Signal a change immediately after it happens. |
157 | 727 POS is the address of the start of the changed text. |
728 LENDEL is the number of characters of the text before the change. | |
729 (Not the whole buffer; just the part that was changed.) | |
730 LENINS is the number of characters in the changed text. */ | |
731 | |
732 signal_after_change (pos, lendel, lenins) | |
733 int pos, lendel, lenins; | |
734 { | |
484 | 735 if (!NILP (Vafter_change_function)) |
157 | 736 { |
737 int count = specpdl_ptr - specpdl; | |
738 Lisp_Object function; | |
739 function = Vafter_change_function; | |
740 | |
741 record_unwind_protect (after_change_function_restore, | |
742 Vafter_change_function); | |
743 record_unwind_protect (before_change_function_restore, | |
744 Vbefore_change_function); | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
745 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
746 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
747 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
748 Vbefore_change_functions); |
157 | 749 Vafter_change_function = Qnil; |
750 Vbefore_change_function = Qnil; | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
751 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
752 Vbefore_change_functions = Qnil; |
157 | 753 |
754 call3 (function, make_number (pos), make_number (pos + lenins), | |
755 make_number (lendel)); | |
756 unbind_to (count, Qnil); | |
757 } | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
758 if (!NILP (Vafter_change_functions)) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
759 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
760 int count = specpdl_ptr - specpdl; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
761 Lisp_Object functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
762 functions = Vafter_change_functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
763 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
764 record_unwind_protect (after_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
765 Vafter_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
766 record_unwind_protect (before_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
767 Vbefore_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
768 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
769 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
770 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
771 Vbefore_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
772 Vafter_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
773 Vbefore_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
774 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
775 Vbefore_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
776 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
777 while (CONSP (functions)) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
778 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
779 call3 (XCONS (functions)->car, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
780 make_number (pos), make_number (pos + lenins), |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
781 make_number (lendel)); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
782 functions = XCONS (functions)->cdr; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
783 } |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
784 unbind_to (count, Qnil); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
785 } |
157 | 786 } |