Mercurial > emacs

comparison src/fileio.c @ 16167:651ee074f8b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change all references from point to PT.
author Karl Heuer <kwzh@gnu.org>
date Wed, 11 Sep 1996 21:59:57 +0000
parents ddc7e0142964
children a70ec9baba1a
comparison
equal deleted inserted replaced
16166:05e71f2b317e 16167:651ee074f8b0
3233 if (total != XINT (temp)) 3233 if (total != XINT (temp))
3234 error ("maximum buffer size exceeded"); 3234 error ("maximum buffer size exceeded");
3235 } 3235 }
3236 3236
3237 if (NILP (visit) && total > 0) 3237 if (NILP (visit) && total > 0)
3238 prepare_to_modify_buffer (point, point); 3238 prepare_to_modify_buffer (PT, PT);
3239 3239
3240 move_gap (point); 3240 move_gap (PT);
3241 if (GAP_SIZE < total) 3241 if (GAP_SIZE < total)
3242 make_gap (total - GAP_SIZE); 3242 make_gap (total - GAP_SIZE);
3243 3243
3244 if (XINT (beg) != 0 || !NILP (replace)) 3244 if (XINT (beg) != 0 || !NILP (replace))
3245 { 3245 {
3255 int this; 3255 int this;
3256 3256
3257 /* Allow quitting out of the actual I/O. */ 3257 /* Allow quitting out of the actual I/O. */
3258 immediate_quit = 1; 3258 immediate_quit = 1;
3259 QUIT; 3259 QUIT;
3260 this = read (fd, &FETCH_CHAR (point + inserted - 1) + 1, trytry); 3260 this = read (fd, &FETCH_CHAR (PT + inserted - 1) + 1, trytry);
3261 immediate_quit = 0; 3261 immediate_quit = 0;
3262 3262
3263 if (this <= 0) 3263 if (this <= 0)
3264 { 3264 {
3265 how_much = this; 3265 how_much = this;
3281 current_buffer->buffer_file_type 3281 current_buffer->buffer_file_type
3282 = call1 (Qfind_buffer_file_type, filename); 3282 = call1 (Qfind_buffer_file_type, filename);
3283 if (NILP (current_buffer->buffer_file_type)) 3283 if (NILP (current_buffer->buffer_file_type))
3284 { 3284 {
3285 int reduced_size 3285 int reduced_size
3286 = inserted - crlf_to_lf (inserted, &FETCH_CHAR (point - 1) + 1); 3286 = inserted - crlf_to_lf (inserted, &FETCH_CHAR (PT - 1) + 1);
3287 ZV -= reduced_size; 3287 ZV -= reduced_size;
3288 Z -= reduced_size; 3288 Z -= reduced_size;
3289 GPT -= reduced_size; 3289 GPT -= reduced_size;
3290 GAP_SIZE += reduced_size; 3290 GAP_SIZE += reduced_size;
3291 inserted -= reduced_size; 3291 inserted -= reduced_size;
3293 } 3293 }
3294 #endif /* DOS_NT */ 3294 #endif /* DOS_NT */
3295 3295
3296 if (inserted > 0) 3296 if (inserted > 0)
3297 { 3297 {
3298 record_insert (point, inserted); 3298 record_insert (PT, inserted);
3299 3299
3300 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ 3300 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
3301 offset_intervals (current_buffer, point, inserted); 3301 offset_intervals (current_buffer, PT, inserted);
3302 MODIFF++; 3302 MODIFF++;
3303 } 3303 }
3304 3304
3305 close (fd); 3305 close (fd);
3306 3306
3357 CHECK_NUMBER (insval, 0); 3357 CHECK_NUMBER (insval, 0);
3358 inserted = XFASTINT (insval); 3358 inserted = XFASTINT (insval);
3359 } 3359 }
3360 3360
3361 if (inserted > 0 && NILP (visit) && total > 0) 3361 if (inserted > 0 && NILP (visit) && total > 0)
3362 signal_after_change (point, 0, inserted); 3362 signal_after_change (PT, 0, inserted);
3363 3363
3364 if (inserted > 0) 3364 if (inserted > 0)
3365 { 3365 {
3366 p = Vafter_insert_file_functions; 3366 p = Vafter_insert_file_functions;
3367 while (!NILP (p)) 3367 while (!NILP (p))