diff options
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/src/fileio.c b/src/fileio.c index 5991a238ffc..6deca0bf1e1 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -766,7 +766,7 @@ filesystem tree, not (expand-file-name ".." dirname). */) | |||
| 766 | #endif /* DOS_NT */ | 766 | #endif /* DOS_NT */ |
| 767 | ptrdiff_t length; | 767 | ptrdiff_t length; |
| 768 | Lisp_Object handler, result, handled_name; | 768 | Lisp_Object handler, result, handled_name; |
| 769 | int multibyte; | 769 | bool multibyte; |
| 770 | Lisp_Object hdir; | 770 | Lisp_Object hdir; |
| 771 | 771 | ||
| 772 | CHECK_STRING (name); | 772 | CHECK_STRING (name); |
| @@ -1566,7 +1566,7 @@ those `/' is discarded. */) | |||
| 1566 | char *target = NULL; | 1566 | char *target = NULL; |
| 1567 | int total = 0; | 1567 | int total = 0; |
| 1568 | int substituted = 0; | 1568 | int substituted = 0; |
| 1569 | int multibyte; | 1569 | bool multibyte; |
| 1570 | char *xnm; | 1570 | char *xnm; |
| 1571 | Lisp_Object handler; | 1571 | Lisp_Object handler; |
| 1572 | 1572 | ||
| @@ -3146,12 +3146,12 @@ decide_coding_unwind (Lisp_Object unwind_data) | |||
| 3146 | set_buffer_internal (XBUFFER (buffer)); | 3146 | set_buffer_internal (XBUFFER (buffer)); |
| 3147 | adjust_markers_for_delete (BEG, BEG_BYTE, Z, Z_BYTE); | 3147 | adjust_markers_for_delete (BEG, BEG_BYTE, Z, Z_BYTE); |
| 3148 | adjust_overlays_for_delete (BEG, Z - BEG); | 3148 | adjust_overlays_for_delete (BEG, Z - BEG); |
| 3149 | buffer_set_intervals (current_buffer, NULL); | 3149 | set_buffer_intervals (current_buffer, NULL); |
| 3150 | TEMP_SET_PT_BOTH (BEG, BEG_BYTE); | 3150 | TEMP_SET_PT_BOTH (BEG, BEG_BYTE); |
| 3151 | 3151 | ||
| 3152 | /* Now we are safe to change the buffer's multibyteness directly. */ | 3152 | /* Now we are safe to change the buffer's multibyteness directly. */ |
| 3153 | BSET (current_buffer, enable_multibyte_characters, multibyte); | 3153 | bset_enable_multibyte_characters (current_buffer, multibyte); |
| 3154 | BSET (current_buffer, undo_list, undo_list); | 3154 | bset_undo_list (current_buffer, undo_list); |
| 3155 | 3155 | ||
| 3156 | return Qnil; | 3156 | return Qnil; |
| 3157 | } | 3157 | } |
| @@ -3487,16 +3487,16 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 3487 | buf = XBUFFER (workbuf); | 3487 | buf = XBUFFER (workbuf); |
| 3488 | 3488 | ||
| 3489 | delete_all_overlays (buf); | 3489 | delete_all_overlays (buf); |
| 3490 | BSET (buf, directory, BVAR (current_buffer, directory)); | 3490 | bset_directory (buf, BVAR (current_buffer, directory)); |
| 3491 | BSET (buf, read_only, Qnil); | 3491 | bset_read_only (buf, Qnil); |
| 3492 | BSET (buf, filename, Qnil); | 3492 | bset_filename (buf, Qnil); |
| 3493 | BSET (buf, undo_list, Qt); | 3493 | bset_undo_list (buf, Qt); |
| 3494 | eassert (buf->overlays_before == NULL); | 3494 | eassert (buf->overlays_before == NULL); |
| 3495 | eassert (buf->overlays_after == NULL); | 3495 | eassert (buf->overlays_after == NULL); |
| 3496 | 3496 | ||
| 3497 | set_buffer_internal (buf); | 3497 | set_buffer_internal (buf); |
| 3498 | Ferase_buffer (); | 3498 | Ferase_buffer (); |
| 3499 | BSET (buf, enable_multibyte_characters, Qnil); | 3499 | bset_enable_multibyte_characters (buf, Qnil); |
| 3500 | 3500 | ||
| 3501 | insert_1_both ((char *) read_buf, nread, nread, 0, 0, 0); | 3501 | insert_1_both ((char *) read_buf, nread, nread, 0, 0, 0); |
| 3502 | TEMP_SET_PT_BOTH (BEG, BEG_BYTE); | 3502 | TEMP_SET_PT_BOTH (BEG, BEG_BYTE); |
| @@ -4105,8 +4105,8 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4105 | unwind_data = Fcons (BVAR (current_buffer, enable_multibyte_characters), | 4105 | unwind_data = Fcons (BVAR (current_buffer, enable_multibyte_characters), |
| 4106 | Fcons (BVAR (current_buffer, undo_list), | 4106 | Fcons (BVAR (current_buffer, undo_list), |
| 4107 | Fcurrent_buffer ())); | 4107 | Fcurrent_buffer ())); |
| 4108 | BSET (current_buffer, enable_multibyte_characters, Qnil); | 4108 | bset_enable_multibyte_characters (current_buffer, Qnil); |
| 4109 | BSET (current_buffer, undo_list, Qt); | 4109 | bset_undo_list (current_buffer, Qt); |
| 4110 | record_unwind_protect (decide_coding_unwind, unwind_data); | 4110 | record_unwind_protect (decide_coding_unwind, unwind_data); |
| 4111 | 4111 | ||
| 4112 | if (inserted > 0 && ! NILP (Vset_auto_coding_function)) | 4112 | if (inserted > 0 && ! NILP (Vset_auto_coding_function)) |
| @@ -4154,7 +4154,7 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4154 | && NILP (replace)) | 4154 | && NILP (replace)) |
| 4155 | /* Visiting a file with these coding system makes the buffer | 4155 | /* Visiting a file with these coding system makes the buffer |
| 4156 | unibyte. */ | 4156 | unibyte. */ |
| 4157 | BSET (current_buffer, enable_multibyte_characters, Qnil); | 4157 | bset_enable_multibyte_characters (current_buffer, Qnil); |
| 4158 | } | 4158 | } |
| 4159 | 4159 | ||
| 4160 | coding.dst_multibyte = ! NILP (BVAR (current_buffer, enable_multibyte_characters)); | 4160 | coding.dst_multibyte = ! NILP (BVAR (current_buffer, enable_multibyte_characters)); |
| @@ -4197,13 +4197,13 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4197 | if (!NILP (visit)) | 4197 | if (!NILP (visit)) |
| 4198 | { | 4198 | { |
| 4199 | if (!EQ (BVAR (current_buffer, undo_list), Qt) && !nochange) | 4199 | if (!EQ (BVAR (current_buffer, undo_list), Qt) && !nochange) |
| 4200 | BSET (current_buffer, undo_list, Qnil); | 4200 | bset_undo_list (current_buffer, Qnil); |
| 4201 | 4201 | ||
| 4202 | if (NILP (handler)) | 4202 | if (NILP (handler)) |
| 4203 | { | 4203 | { |
| 4204 | current_buffer->modtime = mtime; | 4204 | current_buffer->modtime = mtime; |
| 4205 | current_buffer->modtime_size = st.st_size; | 4205 | current_buffer->modtime_size = st.st_size; |
| 4206 | BSET (current_buffer, filename, orig_filename); | 4206 | bset_filename (current_buffer, orig_filename); |
| 4207 | } | 4207 | } |
| 4208 | 4208 | ||
| 4209 | SAVE_MODIFF = MODIFF; | 4209 | SAVE_MODIFF = MODIFF; |
| @@ -4248,7 +4248,7 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4248 | 4248 | ||
| 4249 | /* Save old undo list and don't record undo for decoding. */ | 4249 | /* Save old undo list and don't record undo for decoding. */ |
| 4250 | old_undo = BVAR (current_buffer, undo_list); | 4250 | old_undo = BVAR (current_buffer, undo_list); |
| 4251 | BSET (current_buffer, undo_list, Qt); | 4251 | bset_undo_list (current_buffer, Qt); |
| 4252 | 4252 | ||
| 4253 | if (NILP (replace)) | 4253 | if (NILP (replace)) |
| 4254 | { | 4254 | { |
| @@ -4340,7 +4340,7 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4340 | 4340 | ||
| 4341 | if (NILP (visit)) | 4341 | if (NILP (visit)) |
| 4342 | { | 4342 | { |
| 4343 | BSET (current_buffer, undo_list, old_undo); | 4343 | bset_undo_list (current_buffer, old_undo); |
| 4344 | if (CONSP (old_undo) && inserted != old_inserted) | 4344 | if (CONSP (old_undo) && inserted != old_inserted) |
| 4345 | { | 4345 | { |
| 4346 | /* Adjust the last undo record for the size change during | 4346 | /* Adjust the last undo record for the size change during |
| @@ -4355,7 +4355,7 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4355 | else | 4355 | else |
| 4356 | /* If undo_list was Qt before, keep it that way. | 4356 | /* If undo_list was Qt before, keep it that way. |
| 4357 | Otherwise start with an empty undo_list. */ | 4357 | Otherwise start with an empty undo_list. */ |
| 4358 | BSET (current_buffer, undo_list, EQ (old_undo, Qt) ? Qt : Qnil); | 4358 | bset_undo_list (current_buffer, EQ (old_undo, Qt) ? Qt : Qnil); |
| 4359 | 4359 | ||
| 4360 | unbind_to (count1, Qnil); | 4360 | unbind_to (count1, Qnil); |
| 4361 | } | 4361 | } |
| @@ -4595,7 +4595,7 @@ This calls `write-region-annotate-functions' at the start, and | |||
| 4595 | { | 4595 | { |
| 4596 | SAVE_MODIFF = MODIFF; | 4596 | SAVE_MODIFF = MODIFF; |
| 4597 | XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG); | 4597 | XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG); |
| 4598 | BSET (current_buffer, filename, visit_file); | 4598 | bset_filename (current_buffer, visit_file); |
| 4599 | } | 4599 | } |
| 4600 | UNGCPRO; | 4600 | UNGCPRO; |
| 4601 | return val; | 4601 | return val; |
| @@ -4811,7 +4811,7 @@ This calls `write-region-annotate-functions' at the start, and | |||
| 4811 | { | 4811 | { |
| 4812 | SAVE_MODIFF = MODIFF; | 4812 | SAVE_MODIFF = MODIFF; |
| 4813 | XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG); | 4813 | XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG); |
| 4814 | BSET (current_buffer, filename, visit_file); | 4814 | bset_filename (current_buffer, visit_file); |
| 4815 | update_mode_lines++; | 4815 | update_mode_lines++; |
| 4816 | } | 4816 | } |
| 4817 | else if (quietly) | 4817 | else if (quietly) |
| @@ -5306,7 +5306,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer. */) | |||
| 5306 | FILE *stream = NULL; | 5306 | FILE *stream = NULL; |
| 5307 | ptrdiff_t count = SPECPDL_INDEX (); | 5307 | ptrdiff_t count = SPECPDL_INDEX (); |
| 5308 | int orig_minibuffer_auto_raise = minibuffer_auto_raise; | 5308 | int orig_minibuffer_auto_raise = minibuffer_auto_raise; |
| 5309 | int old_message_p = 0; | 5309 | bool old_message_p = 0; |
| 5310 | struct gcpro gcpro1, gcpro2; | 5310 | struct gcpro gcpro1, gcpro2; |
| 5311 | 5311 | ||
| 5312 | if (max_specpdl_size < specpdl_size + 40) | 5312 | if (max_specpdl_size < specpdl_size + 40) |