Mercurial > emacs
annotate src/insdel.c @ 12696:dbbeba770da4
(vip-overriding-map): new variable.
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Thu, 27 Jul 1995 19:42:29 +0000 |
parents | 3469b3194164 |
children | 0dea0aa2f32d |
rev | line source |
---|---|
157 | 1 /* Buffer insertion/deletion and gap motion for GNU Emacs. |
11235 | 2 Copyright (C) 1985, 1986, 1993, 1994, 1995 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 | |
12244 | 8 the Free Software Foundation; either version 2, or (at your option) |
157 | 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 |
11703
3c5b974e1c10
(make_gap): Make this new error check also check exceeding VALBITS.
Richard M. Stallman <rms@gnu.org>
parents:
11691
diff
changeset
|
28 #define min(x, y) ((x) < (y) ? (x) : (y)) |
3c5b974e1c10
(make_gap): Make this new error check also check exceeding VALBITS.
Richard M. Stallman <rms@gnu.org>
parents:
11691
diff
changeset
|
29 |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
30 static void insert_from_string_1 (); |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
31 static void insert_from_buffer_1 (); |
7108 | 32 static void gap_left (); |
33 static void gap_right (); | |
34 static void adjust_markers (); | |
7109 | 35 static void adjust_point (); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
36 |
157 | 37 /* Move gap to position `pos'. |
38 Note that this can quit! */ | |
39 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
40 void |
157 | 41 move_gap (pos) |
42 int pos; | |
43 { | |
44 if (pos < GPT) | |
45 gap_left (pos, 0); | |
46 else if (pos > GPT) | |
47 gap_right (pos); | |
48 } | |
49 | |
50 /* Move the gap to POS, which is less than the current GPT. | |
51 If NEWGAP is nonzero, then don't update beg_unchanged and end_unchanged. */ | |
52 | |
7108 | 53 static void |
157 | 54 gap_left (pos, newgap) |
55 register int pos; | |
56 int newgap; | |
57 { | |
58 register unsigned char *to, *from; | |
59 register int i; | |
60 int new_s1; | |
61 | |
62 pos--; | |
63 | |
64 if (!newgap) | |
65 { | |
66 if (unchanged_modified == MODIFF) | |
67 { | |
68 beg_unchanged = pos; | |
69 end_unchanged = Z - pos - 1; | |
70 } | |
71 else | |
72 { | |
73 if (Z - GPT < end_unchanged) | |
74 end_unchanged = Z - GPT; | |
75 if (pos < beg_unchanged) | |
76 beg_unchanged = pos; | |
77 } | |
78 } | |
79 | |
80 i = GPT; | |
81 to = GAP_END_ADDR; | |
82 from = GPT_ADDR; | |
83 new_s1 = GPT - BEG; | |
84 | |
85 /* Now copy the characters. To move the gap down, | |
86 copy characters up. */ | |
87 | |
88 while (1) | |
89 { | |
90 /* I gets number of characters left to copy. */ | |
91 i = new_s1 - pos; | |
92 if (i == 0) | |
93 break; | |
94 /* If a quit is requested, stop copying now. | |
95 Change POS to be where we have actually moved the gap to. */ | |
96 if (QUITP) | |
97 { | |
98 pos = new_s1; | |
99 break; | |
100 } | |
101 /* Move at most 32000 chars before checking again for a quit. */ | |
102 if (i > 32000) | |
103 i = 32000; | |
104 #ifdef GAP_USE_BCOPY | |
105 if (i >= 128 | |
106 /* bcopy is safe if the two areas of memory do not overlap | |
107 or on systems where bcopy is always safe for moving upward. */ | |
108 && (BCOPY_UPWARD_SAFE | |
109 || to - from >= 128)) | |
110 { | |
111 /* If overlap is not safe, avoid it by not moving too many | |
112 characters at once. */ | |
113 if (!BCOPY_UPWARD_SAFE && i > to - from) | |
114 i = to - from; | |
115 new_s1 -= i; | |
116 from -= i, to -= i; | |
117 bcopy (from, to, i); | |
118 } | |
119 else | |
120 #endif | |
121 { | |
122 new_s1 -= i; | |
123 while (--i >= 0) | |
124 *--to = *--from; | |
125 } | |
126 } | |
127 | |
128 /* Adjust markers, and buffer data structure, to put the gap at POS. | |
129 POS is where the loop above stopped, which may be what was specified | |
130 or may be where a quit was detected. */ | |
131 adjust_markers (pos + 1, GPT, GAP_SIZE); | |
132 GPT = pos + 1; | |
133 QUIT; | |
134 } | |
135 | |
7108 | 136 static void |
157 | 137 gap_right (pos) |
138 register int pos; | |
139 { | |
140 register unsigned char *to, *from; | |
141 register int i; | |
142 int new_s1; | |
143 | |
144 pos--; | |
145 | |
146 if (unchanged_modified == MODIFF) | |
147 { | |
148 beg_unchanged = pos; | |
149 end_unchanged = Z - pos - 1; | |
150 } | |
151 else | |
152 { | |
153 if (Z - pos - 1 < end_unchanged) | |
154 end_unchanged = Z - pos - 1; | |
155 if (GPT - BEG < beg_unchanged) | |
156 beg_unchanged = GPT - BEG; | |
157 } | |
158 | |
159 i = GPT; | |
160 from = GAP_END_ADDR; | |
161 to = GPT_ADDR; | |
162 new_s1 = GPT - 1; | |
163 | |
164 /* Now copy the characters. To move the gap up, | |
165 copy characters down. */ | |
166 | |
167 while (1) | |
168 { | |
169 /* I gets number of characters left to copy. */ | |
170 i = pos - new_s1; | |
171 if (i == 0) | |
172 break; | |
173 /* If a quit is requested, stop copying now. | |
174 Change POS to be where we have actually moved the gap to. */ | |
175 if (QUITP) | |
176 { | |
177 pos = new_s1; | |
178 break; | |
179 } | |
180 /* Move at most 32000 chars before checking again for a quit. */ | |
181 if (i > 32000) | |
182 i = 32000; | |
183 #ifdef GAP_USE_BCOPY | |
184 if (i >= 128 | |
185 /* bcopy is safe if the two areas of memory do not overlap | |
186 or on systems where bcopy is always safe for moving downward. */ | |
187 && (BCOPY_DOWNWARD_SAFE | |
188 || from - to >= 128)) | |
189 { | |
190 /* If overlap is not safe, avoid it by not moving too many | |
191 characters at once. */ | |
192 if (!BCOPY_DOWNWARD_SAFE && i > from - to) | |
193 i = from - to; | |
194 new_s1 += i; | |
195 bcopy (from, to, i); | |
196 from += i, to += i; | |
197 } | |
198 else | |
199 #endif | |
200 { | |
201 new_s1 += i; | |
202 while (--i >= 0) | |
203 *to++ = *from++; | |
204 } | |
205 } | |
206 | |
207 adjust_markers (GPT + GAP_SIZE, pos + 1 + GAP_SIZE, - GAP_SIZE); | |
208 GPT = pos + 1; | |
209 QUIT; | |
210 } | |
211 | |
212 /* Add `amount' to the position of every marker in the current buffer | |
213 whose current position is between `from' (exclusive) and `to' (inclusive). | |
214 Also, any markers past the outside of that interval, in the direction | |
215 of adjustment, are first moved back to the near end of the interval | |
216 and then adjusted by `amount'. */ | |
217 | |
7108 | 218 static void |
157 | 219 adjust_markers (from, to, amount) |
220 register int from, to, amount; | |
221 { | |
222 Lisp_Object marker; | |
223 register struct Lisp_Marker *m; | |
224 register int mpos; | |
225 | |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
226 marker = BUF_MARKERS (current_buffer); |
157 | 227 |
484 | 228 while (!NILP (marker)) |
157 | 229 { |
230 m = XMARKER (marker); | |
231 mpos = m->bufpos; | |
232 if (amount > 0) | |
233 { | |
234 if (mpos > to && mpos < to + amount) | |
235 mpos = to + amount; | |
236 } | |
237 else | |
238 { | |
239 if (mpos > from + amount && mpos <= from) | |
240 mpos = from + amount; | |
241 } | |
242 if (mpos > from && mpos <= to) | |
243 mpos += amount; | |
244 m->bufpos = mpos; | |
245 marker = m->chain; | |
246 } | |
247 } | |
7109 | 248 |
249 /* Add the specified amount to point. This is used only when the value | |
250 of point changes due to an insert or delete; it does not represent | |
251 a conceptual change in point as a marker. In particular, point is | |
252 not crossing any interval boundaries, so there's no need to use the | |
253 usual SET_PT macro. In fact it would be incorrect to do so, because | |
254 either the old or the new value of point is out of synch with the | |
255 current set of intervals. */ | |
256 static void | |
257 adjust_point (amount) | |
11923
5160a1fdb44f
(adjust_point): Declare arg AMOUNT.
Karl Heuer <kwzh@gnu.org>
parents:
11703
diff
changeset
|
258 int amount; |
7109 | 259 { |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
260 BUF_PT (current_buffer) += amount; |
7109 | 261 } |
157 | 262 |
263 /* Make the gap INCREMENT characters longer. */ | |
264 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
265 void |
157 | 266 make_gap (increment) |
267 int increment; | |
268 { | |
269 unsigned char *result; | |
270 Lisp_Object tem; | |
271 int real_gap_loc; | |
272 int old_gap_size; | |
273 | |
274 /* If we have to get more space, get enough to last a while. */ | |
275 increment += 2000; | |
276 | |
11691
ca7058c74ef3
(make_gap): Don't allow buffer size that won't fit in int.
Richard M. Stallman <rms@gnu.org>
parents:
11657
diff
changeset
|
277 /* Don't allow a buffer size that won't fit in an int |
ca7058c74ef3
(make_gap): Don't allow buffer size that won't fit in int.
Richard M. Stallman <rms@gnu.org>
parents:
11657
diff
changeset
|
278 even if it will fit in a Lisp integer. |
ca7058c74ef3
(make_gap): Don't allow buffer size that won't fit in int.
Richard M. Stallman <rms@gnu.org>
parents:
11657
diff
changeset
|
279 That won't work because so many places use `int'. */ |
ca7058c74ef3
(make_gap): Don't allow buffer size that won't fit in int.
Richard M. Stallman <rms@gnu.org>
parents:
11657
diff
changeset
|
280 |
11703
3c5b974e1c10
(make_gap): Make this new error check also check exceeding VALBITS.
Richard M. Stallman <rms@gnu.org>
parents:
11691
diff
changeset
|
281 if (Z - BEG + GAP_SIZE + increment |
3c5b974e1c10
(make_gap): Make this new error check also check exceeding VALBITS.
Richard M. Stallman <rms@gnu.org>
parents:
11691
diff
changeset
|
282 >= ((unsigned) 1 << (min (INTBITS, VALBITS) - 1))) |
3c5b974e1c10
(make_gap): Make this new error check also check exceeding VALBITS.
Richard M. Stallman <rms@gnu.org>
parents:
11691
diff
changeset
|
283 error ("Buffer exceeds maximum size"); |
11691
ca7058c74ef3
(make_gap): Don't allow buffer size that won't fit in int.
Richard M. Stallman <rms@gnu.org>
parents:
11657
diff
changeset
|
284 |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2050
diff
changeset
|
285 BLOCK_INPUT; |
157 | 286 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
|
287 |
157 | 288 if (result == 0) |
9391
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
289 { |
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
290 UNBLOCK_INPUT; |
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
291 memory_full (); |
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
292 } |
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
293 |
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
294 /* We can't unblock until the new address is properly stored. */ |
157 | 295 BEG_ADDR = result; |
9391
6061a432881f
(make_gap): Keep input blocked till after we set BEG_ADDR.
Richard M. Stallman <rms@gnu.org>
parents:
9270
diff
changeset
|
296 UNBLOCK_INPUT; |
157 | 297 |
298 /* Prevent quitting in move_gap. */ | |
299 tem = Vinhibit_quit; | |
300 Vinhibit_quit = Qt; | |
301 | |
302 real_gap_loc = GPT; | |
303 old_gap_size = GAP_SIZE; | |
304 | |
305 /* Call the newly allocated space a gap at the end of the whole space. */ | |
306 GPT = Z + GAP_SIZE; | |
307 GAP_SIZE = increment; | |
308 | |
309 /* Move the new gap down to be consecutive with the end of the old one. | |
310 This adjusts the markers properly too. */ | |
311 gap_left (real_gap_loc + old_gap_size, 1); | |
312 | |
313 /* Now combine the two into one large gap. */ | |
314 GAP_SIZE += old_gap_size; | |
315 GPT = real_gap_loc; | |
316 | |
317 Vinhibit_quit = tem; | |
318 } | |
319 | |
320 /* Insert a string of specified length before point. | |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
321 DO NOT use this for the contents of a Lisp string or a Lisp buffer! |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
322 prepare_to_modify_buffer could relocate the text. */ |
157 | 323 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
324 void |
157 | 325 insert (string, length) |
326 register unsigned char *string; | |
327 register length; | |
328 { | |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
329 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
330 { |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
331 insert_1 (string, length, 0, 1); |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
332 signal_after_change (PT-length, 0, length); |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
333 } |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
334 } |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
335 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
336 void |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
337 insert_and_inherit (string, length) |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
338 register unsigned char *string; |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
339 register length; |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
340 { |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
341 if (length > 0) |
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
342 { |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
343 insert_1 (string, length, 1, 1); |
7108 | 344 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
|
345 } |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
346 } |
157 | 347 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
348 void |
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
349 insert_1 (string, length, inherit, prepare) |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
350 register unsigned char *string; |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
351 register int length; |
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
352 int inherit, prepare; |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
353 { |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
354 register Lisp_Object temp; |
157 | 355 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
356 if (prepare) |
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
357 prepare_to_modify_buffer (PT, PT); |
157 | 358 |
7108 | 359 if (PT != GPT) |
360 move_gap (PT); | |
157 | 361 if (GAP_SIZE < length) |
362 make_gap (length - GAP_SIZE); | |
363 | |
7108 | 364 record_insert (PT, length); |
157 | 365 MODIFF++; |
366 | |
367 bcopy (string, GPT_ADDR, length); | |
368 | |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
369 #ifdef USE_TEXT_PROPERTIES |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
370 if (BUF_INTERVALS (current_buffer) != 0) |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
371 /* 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
|
372 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
|
373 #endif |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
374 |
157 | 375 GAP_SIZE -= length; |
376 GPT += length; | |
377 ZV += length; | |
378 Z += length; | |
11474
510885be2758
(insert_1): Adjust overlay center after inserting.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
379 adjust_overlays_for_insert (PT, length); |
7109 | 380 adjust_point (length); |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
381 |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
382 #ifdef USE_TEXT_PROPERTIES |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
383 if (!inherit && BUF_INTERVALS (current_buffer) != 0) |
8647
d66b80e5bc77
(insert_1): New arg INHERIT.
Richard M. Stallman <rms@gnu.org>
parents:
7109
diff
changeset
|
384 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
|
385 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
|
386 #endif |
157 | 387 } |
388 | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
389 /* 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
|
390 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
|
391 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
|
392 into the buffer. |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
393 |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
394 It does not work to use `insert' for this, because a GC could happen |
251 | 395 before we bcopy the stuff into the buffer, and relocate the string |
396 without insert noticing. */ | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
397 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
398 void |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
399 insert_from_string (string, pos, length, inherit) |
157 | 400 Lisp_Object string; |
401 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
|
402 int inherit; |
157 | 403 { |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
404 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
405 { |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
406 insert_from_string_1 (string, pos, length, inherit); |
7108 | 407 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
|
408 } |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
409 } |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
410 |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
411 static void |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
412 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
|
413 Lisp_Object string; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
414 register int pos, length; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
415 int inherit; |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
416 { |
157 | 417 register Lisp_Object temp; |
418 struct gcpro gcpro1; | |
419 | |
420 /* Make sure point-max won't overflow after this insertion. */ | |
9270
405b269631c3
(insert_1, insert_from_string_1): Use new accessor macros instead of calling
Karl Heuer <kwzh@gnu.org>
parents:
8840
diff
changeset
|
421 XSETINT (temp, length + Z); |
157 | 422 if (length + Z != XINT (temp)) |
423 error ("maximum buffer size exceeded"); | |
424 | |
425 GCPRO1 (string); | |
7108 | 426 prepare_to_modify_buffer (PT, PT); |
157 | 427 |
7108 | 428 if (PT != GPT) |
429 move_gap (PT); | |
157 | 430 if (GAP_SIZE < length) |
431 make_gap (length - GAP_SIZE); | |
432 | |
7108 | 433 record_insert (PT, length); |
157 | 434 MODIFF++; |
435 UNGCPRO; | |
436 | |
437 bcopy (XSTRING (string)->data, GPT_ADDR, length); | |
438 | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
439 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
7108 | 440 offset_intervals (current_buffer, PT, length); |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
441 |
157 | 442 GAP_SIZE -= length; |
443 GPT += length; | |
444 ZV += length; | |
445 Z += length; | |
11474
510885be2758
(insert_1): Adjust overlay center after inserting.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
446 adjust_overlays_for_insert (PT, length); |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
447 |
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
448 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
7108 | 449 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
|
450 current_buffer, inherit); |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
451 |
7109 | 452 adjust_point (length); |
157 | 453 } |
454 | |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
455 /* Insert text from BUF, starting at POS and having length LENGTH, into the |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
456 current buffer. If the text in BUF has properties, they are absorbed |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
457 into the current buffer. |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
458 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
459 It does not work to use `insert' for this, because a malloc could happen |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
460 and relocate BUF's text before the bcopy happens. */ |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
461 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
462 void |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
463 insert_from_buffer (buf, pos, length, inherit) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
464 struct buffer *buf; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
465 int pos, length; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
466 int inherit; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
467 { |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
468 if (length > 0) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
469 { |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
470 insert_from_buffer_1 (buf, pos, length, inherit); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
471 signal_after_change (PT-length, 0, length); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
472 } |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
473 } |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
474 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
475 static void |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
476 insert_from_buffer_1 (buf, pos, length, inherit) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
477 struct buffer *buf; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
478 int pos, length; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
479 int inherit; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
480 { |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
481 register Lisp_Object temp; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
482 int chunk; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
483 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
484 /* Make sure point-max won't overflow after this insertion. */ |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
485 XSETINT (temp, length + Z); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
486 if (length + Z != XINT (temp)) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
487 error ("maximum buffer size exceeded"); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
488 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
489 prepare_to_modify_buffer (PT, PT); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
490 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
491 if (PT != GPT) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
492 move_gap (PT); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
493 if (GAP_SIZE < length) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
494 make_gap (length - GAP_SIZE); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
495 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
496 record_insert (PT, length); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
497 MODIFF++; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
498 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
499 if (pos < BUF_GPT (buf)) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
500 { |
9685
ee2c6124ae92
(insert_from_buffer_1): Don't use min.
Richard M. Stallman <rms@gnu.org>
parents:
9656
diff
changeset
|
501 chunk = BUF_GPT (buf) - pos; |
ee2c6124ae92
(insert_from_buffer_1): Don't use min.
Richard M. Stallman <rms@gnu.org>
parents:
9656
diff
changeset
|
502 if (chunk > length) |
ee2c6124ae92
(insert_from_buffer_1): Don't use min.
Richard M. Stallman <rms@gnu.org>
parents:
9656
diff
changeset
|
503 chunk = length; |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
504 bcopy (BUF_CHAR_ADDRESS (buf, pos), GPT_ADDR, chunk); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
505 } |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
506 else |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
507 chunk = 0; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
508 if (chunk < length) |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
509 bcopy (BUF_CHAR_ADDRESS (buf, pos + chunk), |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
510 GPT_ADDR + chunk, length - chunk); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
511 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
512 #ifdef USE_TEXT_PROPERTIES |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
513 if (BUF_INTERVALS (current_buffer) != 0) |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
514 offset_intervals (current_buffer, PT, length); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
515 #endif |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
516 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
517 GAP_SIZE -= length; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
518 GPT += length; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
519 ZV += length; |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
520 Z += length; |
11474
510885be2758
(insert_1): Adjust overlay center after inserting.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
521 adjust_overlays_for_insert (PT, length); |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
522 adjust_point (length); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
523 |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
524 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
525 graft_intervals_into_buffer (copy_intervals (BUF_INTERVALS (buf), |
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
526 pos, length), |
9656
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
527 PT - length, length, current_buffer, inherit); |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
528 } |
e6cb99e4370c
(insert_from_buffer, insert_from_buffer_1): New functions.
Karl Heuer <kwzh@gnu.org>
parents:
9646
diff
changeset
|
529 |
157 | 530 /* Insert the character C before point */ |
531 | |
532 void | |
533 insert_char (c) | |
534 unsigned char c; | |
535 { | |
536 insert (&c, 1); | |
537 } | |
538 | |
539 /* Insert the null-terminated string S before point */ | |
540 | |
541 void | |
542 insert_string (s) | |
543 char *s; | |
544 { | |
545 insert (s, strlen (s)); | |
546 } | |
547 | |
548 /* Like `insert' except that all markers pointing at the place where | |
549 the insertion happens are adjusted to point after it. | |
550 Don't use this function to insert part of a Lisp string, | |
551 since gc could happen and relocate it. */ | |
552 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
553 void |
157 | 554 insert_before_markers (string, length) |
555 unsigned char *string; | |
556 register int length; | |
557 { | |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
558 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
559 { |
7108 | 560 register int opoint = PT; |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
561 insert_1 (string, length, 0, 1); |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
562 adjust_markers (opoint - 1, opoint, length); |
7108 | 563 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
|
564 } |
157 | 565 } |
566 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
567 void |
8668
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
568 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
|
569 unsigned char *string; |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
570 register int length; |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
571 { |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
572 if (length > 0) |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
573 { |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
574 register int opoint = PT; |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
575 insert_1 (string, length, 1, 1); |
8668
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
576 adjust_markers (opoint - 1, opoint, length); |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
577 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
|
578 } |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
579 } |
011660f7aae9
(insert_before_markers_and_inherit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8647
diff
changeset
|
580 |
157 | 581 /* Insert part of a Lisp string, relocating markers after. */ |
582 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
583 void |
4712
367dc6ff392c
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
584 insert_from_string_before_markers (string, pos, length, inherit) |
157 | 585 Lisp_Object string; |
586 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
|
587 int inherit; |
157 | 588 { |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
589 if (length > 0) |
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
590 { |
7108 | 591 register int opoint = PT; |
6739
6b0dd4aeca67
(insert_1): New function, extracted from insert.
Karl Heuer <kwzh@gnu.org>
parents:
6126
diff
changeset
|
592 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
|
593 adjust_markers (opoint - 1, opoint, length); |
7108 | 594 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
|
595 } |
157 | 596 } |
597 | |
598 /* Delete characters in current buffer | |
599 from FROM up to (but not including) TO. */ | |
600 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
601 void |
157 | 602 del_range (from, to) |
603 register int from, to; | |
604 { | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
605 del_range_1 (from, to, 1); |
6126
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
606 } |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
607 |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
608 /* 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
|
609 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
610 void |
6126
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
611 del_range_1 (from, to, prepare) |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
612 register int from, to, prepare; |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
613 { |
157 | 614 register int numdel; |
615 | |
616 /* Make args be valid */ | |
617 if (from < BEGV) | |
618 from = BEGV; | |
619 if (to > ZV) | |
620 to = ZV; | |
621 | |
622 if ((numdel = to - from) <= 0) | |
623 return; | |
624 | |
625 /* Make sure the gap is somewhere in or next to what we are deleting. */ | |
626 if (from > GPT) | |
627 gap_right (from); | |
628 if (to < GPT) | |
629 gap_left (to, 0); | |
630 | |
6126
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
631 if (prepare) |
47d2f8f84309
(del_range_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5237
diff
changeset
|
632 prepare_to_modify_buffer (from, to); |
157 | 633 |
1247
8dce1588f37f
(del_range): Call record_delete before updating point.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
634 record_delete (from, numdel); |
8dce1588f37f
(del_range): Call record_delete before updating point.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
635 MODIFF++; |
8dce1588f37f
(del_range): Call record_delete before updating point.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
636 |
157 | 637 /* Relocate point as if it were a marker. */ |
7108 | 638 if (from < PT) |
7109 | 639 adjust_point (from - (PT < to ? PT : to)); |
157 | 640 |
1963
05dd60327cc4
(del_range): Update point before offset_intervals.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
641 /* 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
|
642 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
|
643 |
157 | 644 /* Relocate all markers pointing into the new, larger gap |
645 to point at the end of the text before the gap. */ | |
646 adjust_markers (to + GAP_SIZE, to + GAP_SIZE, - numdel - GAP_SIZE); | |
647 | |
11474
510885be2758
(insert_1): Adjust overlay center after inserting.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
648 /* Adjust the overlay center as needed. This must be done after |
12617 | 649 adjusting the markers that bound the overlays. */ |
11474
510885be2758
(insert_1): Adjust overlay center after inserting.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
650 adjust_overlays_for_delete (from, numdel); |
510885be2758
(insert_1): Adjust overlay center after inserting.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
651 |
157 | 652 GAP_SIZE += numdel; |
653 ZV -= numdel; | |
654 Z -= numdel; | |
655 GPT = from; | |
656 | |
657 if (GPT - BEG < beg_unchanged) | |
658 beg_unchanged = GPT - BEG; | |
659 if (Z - GPT < end_unchanged) | |
660 end_unchanged = Z - GPT; | |
661 | |
8840
7242936baf4e
(del_range_1): Call evaporate_overlays after deleting text.
Karl Heuer <kwzh@gnu.org>
parents:
8687
diff
changeset
|
662 evaporate_overlays (from); |
157 | 663 signal_after_change (from, numdel, 0); |
664 } | |
665 | |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
666 /* 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
|
667 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
|
668 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
|
669 it should pay attention to that area. */ |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
670 void |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
671 modify_region (buffer, start, end) |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
672 struct buffer *buffer; |
157 | 673 int start, end; |
674 { | |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
675 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
|
676 |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
677 if (buffer != old_buffer) |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
678 set_buffer_internal (buffer); |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
679 |
157 | 680 prepare_to_modify_buffer (start, end); |
681 | |
682 if (start - 1 < beg_unchanged || unchanged_modified == MODIFF) | |
683 beg_unchanged = start - 1; | |
684 if (Z - end < end_unchanged | |
685 || unchanged_modified == MODIFF) | |
686 end_unchanged = Z - end; | |
5237
378540cf056f
(del_range): Second argument in call to
Richard M. Stallman <rms@gnu.org>
parents:
5168
diff
changeset
|
687 |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
688 if (MODIFF <= SAVE_MODIFF) |
5237
378540cf056f
(del_range): Second argument in call to
Richard M. Stallman <rms@gnu.org>
parents:
5168
diff
changeset
|
689 record_first_change (); |
157 | 690 MODIFF++; |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
691 |
10564
69cae342dde5
(modify_region): Clear point_before_scroll field.
Richard M. Stallman <rms@gnu.org>
parents:
10391
diff
changeset
|
692 buffer->point_before_scroll = Qnil; |
69cae342dde5
(modify_region): Clear point_before_scroll field.
Richard M. Stallman <rms@gnu.org>
parents:
10391
diff
changeset
|
693 |
2783
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
694 if (buffer != old_buffer) |
789c11177579
The text property routines can now modify buffers other
Jim Blandy <jimb@redhat.com>
parents:
2480
diff
changeset
|
695 set_buffer_internal (old_buffer); |
157 | 696 } |
697 | |
698 /* 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
|
699 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
|
700 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
|
701 any modification properties the text may have. */ |
157 | 702 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
703 void |
157 | 704 prepare_to_modify_buffer (start, end) |
705 Lisp_Object start, end; | |
706 { | |
484 | 707 if (!NILP (current_buffer->read_only)) |
157 | 708 Fbarf_if_buffer_read_only (); |
709 | |
1289
74b26ab86df4
* insdel.c: #include "intervals.h"
Joseph Arceneaux <jla@gnu.org>
parents:
1247
diff
changeset
|
710 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
711 if (BUF_INTERVALS (current_buffer) != 0) |
8687
ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
Richard M. Stallman <rms@gnu.org>
parents:
8668
diff
changeset
|
712 verify_interval_modification (current_buffer, start, end); |
157 | 713 |
714 #ifdef CLASH_DETECTION | |
11657
ab5f12280452
(prepare_to_modify_buffer): Use file_truename for locking.
Richard M. Stallman <rms@gnu.org>
parents:
11474
diff
changeset
|
715 if (!NILP (current_buffer->file_truename) |
12621
e71c530e5ae5
(prepare_to_modify_buffer): Don't lock the file
Richard M. Stallman <rms@gnu.org>
parents:
12617
diff
changeset
|
716 /* Make binding buffer-file-name to nil effective. */ |
e71c530e5ae5
(prepare_to_modify_buffer): Don't lock the file
Richard M. Stallman <rms@gnu.org>
parents:
12617
diff
changeset
|
717 && !NILP (current_buffer->filename) |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
718 && SAVE_MODIFF >= MODIFF) |
11657
ab5f12280452
(prepare_to_modify_buffer): Use file_truename for locking.
Richard M. Stallman <rms@gnu.org>
parents:
11474
diff
changeset
|
719 lock_file (current_buffer->file_truename); |
157 | 720 #else |
721 /* At least warn if this file has changed on disk since it was visited. */ | |
484 | 722 if (!NILP (current_buffer->filename) |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
723 && SAVE_MODIFF >= MODIFF |
484 | 724 && NILP (Fverify_visited_file_modtime (Fcurrent_buffer ())) |
725 && !NILP (Ffile_exists_p (current_buffer->filename))) | |
157 | 726 call1 (intern ("ask-user-about-supersession-threat"), |
727 current_buffer->filename); | |
728 #endif /* not CLASH_DETECTION */ | |
729 | |
730 signal_before_change (start, end); | |
2050
3ffbf2314074
(prepare_to_modify_buffer): Set Vdeactivate_mark.
Richard M. Stallman <rms@gnu.org>
parents:
2019
diff
changeset
|
731 |
9409
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
732 if (current_buffer->newline_cache) |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
733 invalidate_region_cache (current_buffer, |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
734 current_buffer->newline_cache, |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
735 start - BEG, Z - end); |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
736 if (current_buffer->width_run_cache) |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
737 invalidate_region_cache (current_buffer, |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
738 current_buffer->width_run_cache, |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
739 start - BEG, Z - end); |
f5590c0b1756
* insdel.c (prepare_to_modify_buffer): Invalidate width run and
Jim Blandy <jimb@redhat.com>
parents:
9391
diff
changeset
|
740 |
2050
3ffbf2314074
(prepare_to_modify_buffer): Set Vdeactivate_mark.
Richard M. Stallman <rms@gnu.org>
parents:
2019
diff
changeset
|
741 Vdeactivate_mark = Qt; |
157 | 742 } |
743 | |
744 static Lisp_Object | |
745 before_change_function_restore (value) | |
746 Lisp_Object value; | |
747 { | |
748 Vbefore_change_function = value; | |
749 } | |
750 | |
751 static Lisp_Object | |
752 after_change_function_restore (value) | |
753 Lisp_Object value; | |
754 { | |
755 Vafter_change_function = value; | |
756 } | |
757 | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
758 static Lisp_Object |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
759 before_change_functions_restore (value) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
760 Lisp_Object value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
761 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
762 Vbefore_change_functions = value; |
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 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
765 static Lisp_Object |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
766 after_change_functions_restore (value) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
767 Lisp_Object value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
768 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
769 Vafter_change_functions = value; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
770 } |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
771 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2783
diff
changeset
|
772 /* Signal a change to the buffer immediately before it happens. |
157 | 773 START and END are the bounds of the text to be changed, |
774 as Lisp objects. */ | |
775 | |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
776 void |
157 | 777 signal_before_change (start, end) |
778 Lisp_Object start, end; | |
779 { | |
12655
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
780 Lisp_Object args[2]; |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
781 |
157 | 782 /* If buffer is unmodified, run a special hook for that case. */ |
10311
0de21e27722f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10145
diff
changeset
|
783 if (SAVE_MODIFF >= MODIFF |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
784 && !NILP (Vfirst_change_hook) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
785 && !NILP (Vrun_hooks)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
786 call1 (Vrun_hooks, Qfirst_change_hook); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1289
diff
changeset
|
787 |
157 | 788 /* Now in any case run the before-change-function if any. */ |
484 | 789 if (!NILP (Vbefore_change_function)) |
157 | 790 { |
791 int count = specpdl_ptr - specpdl; | |
792 Lisp_Object function; | |
793 | |
794 function = Vbefore_change_function; | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
795 |
157 | 796 record_unwind_protect (after_change_function_restore, |
797 Vafter_change_function); | |
798 record_unwind_protect (before_change_function_restore, | |
799 Vbefore_change_function); | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
800 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
801 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
802 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
803 Vbefore_change_functions); |
157 | 804 Vafter_change_function = Qnil; |
805 Vbefore_change_function = Qnil; | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
806 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
807 Vbefore_change_functions = Qnil; |
157 | 808 |
809 call2 (function, start, end); | |
810 unbind_to (count, Qnil); | |
811 } | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
812 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
813 /* 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
|
814 if (!NILP (Vbefore_change_functions)) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
815 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
816 int count = specpdl_ptr - specpdl; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
817 Lisp_Object functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
818 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
819 functions = Vbefore_change_functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
820 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
821 record_unwind_protect (after_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
822 Vafter_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
823 record_unwind_protect (before_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
824 Vbefore_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
825 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
826 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
827 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
828 Vbefore_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
829 Vafter_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
830 Vbefore_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
831 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
832 Vbefore_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
833 |
12655
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
834 args[0] = start; |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
835 args[1] = end; |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
836 Frun_hook_with_args (intern ("before-change-functions"), 2, args); |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
837 unbind_to (count, Qnil); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
838 } |
10144
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
839 |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
840 if (!NILP (current_buffer->overlays_before) |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
841 || !NILP (current_buffer->overlays_after)) |
10145
0091da658d85
* buffer.c (report_overlay_modification): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
10144
diff
changeset
|
842 report_overlay_modification (start, end, 0, start, end, Qnil); |
157 | 843 } |
844 | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2783
diff
changeset
|
845 /* Signal a change immediately after it happens. |
157 | 846 POS is the address of the start of the changed text. |
847 LENDEL is the number of characters of the text before the change. | |
848 (Not the whole buffer; just the part that was changed.) | |
10144
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
849 LENINS is the number of characters in the changed text. |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
850 |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
851 (Hence POS + LENINS - LENDEL is the position after the changed text.) */ |
157 | 852 |
10391
55428c377c84
Declare all non-returning functions `void'.
Karl Heuer <kwzh@gnu.org>
parents:
10311
diff
changeset
|
853 void |
157 | 854 signal_after_change (pos, lendel, lenins) |
855 int pos, lendel, lenins; | |
856 { | |
12655
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
857 Lisp_Object args[3]; |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
858 |
484 | 859 if (!NILP (Vafter_change_function)) |
157 | 860 { |
861 int count = specpdl_ptr - specpdl; | |
862 Lisp_Object function; | |
863 function = Vafter_change_function; | |
864 | |
865 record_unwind_protect (after_change_function_restore, | |
866 Vafter_change_function); | |
867 record_unwind_protect (before_change_function_restore, | |
868 Vbefore_change_function); | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
869 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
870 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
871 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
872 Vbefore_change_functions); |
157 | 873 Vafter_change_function = Qnil; |
874 Vbefore_change_function = Qnil; | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
875 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
876 Vbefore_change_functions = Qnil; |
157 | 877 |
878 call3 (function, make_number (pos), make_number (pos + lenins), | |
879 make_number (lendel)); | |
880 unbind_to (count, Qnil); | |
881 } | |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
882 if (!NILP (Vafter_change_functions)) |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
883 { |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
884 int count = specpdl_ptr - specpdl; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
885 Lisp_Object functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
886 functions = Vafter_change_functions; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
887 |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
888 record_unwind_protect (after_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
889 Vafter_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
890 record_unwind_protect (before_change_function_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
891 Vbefore_change_function); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
892 record_unwind_protect (after_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
893 Vafter_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
894 record_unwind_protect (before_change_functions_restore, |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
895 Vbefore_change_functions); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
896 Vafter_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
897 Vbefore_change_function = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
898 Vafter_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
899 Vbefore_change_functions = Qnil; |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
900 |
12655
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
901 XSETFASTINT (args[0], pos); |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
902 XSETFASTINT (args[1], pos + lenins); |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
903 XSETFASTINT (args[2], lendel); |
3469b3194164
(signal_before_change): Use Frun_hook_with_args.
Karl Heuer <kwzh@gnu.org>
parents:
12621
diff
changeset
|
904 Frun_hook_with_args (intern ("after-change-functions"), 3, args); |
6787
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
905 unbind_to (count, Qnil); |
4fcd24cee757
(before_change_functions_restore):
Richard M. Stallman <rms@gnu.org>
parents:
6739
diff
changeset
|
906 } |
10144
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
907 |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
908 if (!NILP (current_buffer->overlays_before) |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
909 || !NILP (current_buffer->overlays_after)) |
10145
0091da658d85
* buffer.c (report_overlay_modification): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
10144
diff
changeset
|
910 report_overlay_modification (make_number (pos), |
10144
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
911 make_number (pos + lenins - lendel), |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
912 1, |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
913 make_number (pos), make_number (pos + lenins), |
607074ed1c6d
(signal_before_change, signal_after_change):
Richard M. Stallman <rms@gnu.org>
parents:
9685
diff
changeset
|
914 make_number (lendel)); |
157 | 915 } |