diff options
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/coding.c b/src/coding.c index a9f16de56f3..899cca6d5aa 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -7038,8 +7038,8 @@ decode_coding (struct coding_system *coding) | |||
| 7038 | set_buffer_internal (XBUFFER (coding->dst_object)); | 7038 | set_buffer_internal (XBUFFER (coding->dst_object)); |
| 7039 | if (GPT != PT) | 7039 | if (GPT != PT) |
| 7040 | move_gap_both (PT, PT_BYTE); | 7040 | move_gap_both (PT, PT_BYTE); |
| 7041 | undo_list = current_buffer->undo_list; | 7041 | undo_list = B_ (current_buffer, undo_list); |
| 7042 | current_buffer->undo_list = Qt; | 7042 | B_ (current_buffer, undo_list) = Qt; |
| 7043 | } | 7043 | } |
| 7044 | 7044 | ||
| 7045 | coding->consumed = coding->consumed_char = 0; | 7045 | coding->consumed = coding->consumed_char = 0; |
| @@ -7136,7 +7136,7 @@ decode_coding (struct coding_system *coding) | |||
| 7136 | decode_eol (coding); | 7136 | decode_eol (coding); |
| 7137 | if (BUFFERP (coding->dst_object)) | 7137 | if (BUFFERP (coding->dst_object)) |
| 7138 | { | 7138 | { |
| 7139 | current_buffer->undo_list = undo_list; | 7139 | B_ (current_buffer, undo_list) = undo_list; |
| 7140 | record_insert (coding->dst_pos, coding->produced_char); | 7140 | record_insert (coding->dst_pos, coding->produced_char); |
| 7141 | } | 7141 | } |
| 7142 | return coding->result; | 7142 | return coding->result; |
| @@ -7433,7 +7433,7 @@ encode_coding (struct coding_system *coding) | |||
| 7433 | { | 7433 | { |
| 7434 | set_buffer_internal (XBUFFER (coding->dst_object)); | 7434 | set_buffer_internal (XBUFFER (coding->dst_object)); |
| 7435 | coding->dst_multibyte | 7435 | coding->dst_multibyte |
| 7436 | = ! NILP (current_buffer->enable_multibyte_characters); | 7436 | = ! NILP (B_ (current_buffer, enable_multibyte_characters)); |
| 7437 | } | 7437 | } |
| 7438 | 7438 | ||
| 7439 | coding->consumed = coding->consumed_char = 0; | 7439 | coding->consumed = coding->consumed_char = 0; |
| @@ -7504,8 +7504,8 @@ make_conversion_work_buffer (int multibyte) | |||
| 7504 | doesn't compile new regexps. */ | 7504 | doesn't compile new regexps. */ |
| 7505 | Fset (Fmake_local_variable (Qinhibit_modification_hooks), Qt); | 7505 | Fset (Fmake_local_variable (Qinhibit_modification_hooks), Qt); |
| 7506 | Ferase_buffer (); | 7506 | Ferase_buffer (); |
| 7507 | current_buffer->undo_list = Qt; | 7507 | B_ (current_buffer, undo_list) = Qt; |
| 7508 | current_buffer->enable_multibyte_characters = multibyte ? Qt : Qnil; | 7508 | B_ (current_buffer, enable_multibyte_characters) = multibyte ? Qt : Qnil; |
| 7509 | set_buffer_internal (current); | 7509 | set_buffer_internal (current); |
| 7510 | return workbuf; | 7510 | return workbuf; |
| 7511 | } | 7511 | } |
| @@ -7562,7 +7562,7 @@ decode_coding_gap (struct coding_system *coding, | |||
| 7562 | coding->dst_object = coding->src_object; | 7562 | coding->dst_object = coding->src_object; |
| 7563 | coding->dst_pos = PT; | 7563 | coding->dst_pos = PT; |
| 7564 | coding->dst_pos_byte = PT_BYTE; | 7564 | coding->dst_pos_byte = PT_BYTE; |
| 7565 | coding->dst_multibyte = ! NILP (current_buffer->enable_multibyte_characters); | 7565 | coding->dst_multibyte = ! NILP (B_ (current_buffer, enable_multibyte_characters)); |
| 7566 | 7566 | ||
| 7567 | if (CODING_REQUIRE_DETECTION (coding)) | 7567 | if (CODING_REQUIRE_DETECTION (coding)) |
| 7568 | detect_coding (coding); | 7568 | detect_coding (coding); |
| @@ -7728,7 +7728,7 @@ decode_coding_object (struct coding_system *coding, | |||
| 7728 | coding->dst_pos = BUF_PT (XBUFFER (dst_object)); | 7728 | coding->dst_pos = BUF_PT (XBUFFER (dst_object)); |
| 7729 | coding->dst_pos_byte = BUF_PT_BYTE (XBUFFER (dst_object)); | 7729 | coding->dst_pos_byte = BUF_PT_BYTE (XBUFFER (dst_object)); |
| 7730 | coding->dst_multibyte | 7730 | coding->dst_multibyte |
| 7731 | = ! NILP (XBUFFER (dst_object)->enable_multibyte_characters); | 7731 | = ! NILP (B_ (XBUFFER (dst_object), enable_multibyte_characters)); |
| 7732 | } | 7732 | } |
| 7733 | else | 7733 | else |
| 7734 | { | 7734 | { |
| @@ -7798,7 +7798,7 @@ decode_coding_object (struct coding_system *coding, | |||
| 7798 | TEMP_SET_PT_BOTH (saved_pt, saved_pt_byte); | 7798 | TEMP_SET_PT_BOTH (saved_pt, saved_pt_byte); |
| 7799 | else if (saved_pt < from + chars) | 7799 | else if (saved_pt < from + chars) |
| 7800 | TEMP_SET_PT_BOTH (from, from_byte); | 7800 | TEMP_SET_PT_BOTH (from, from_byte); |
| 7801 | else if (! NILP (current_buffer->enable_multibyte_characters)) | 7801 | else if (! NILP (B_ (current_buffer, enable_multibyte_characters))) |
| 7802 | TEMP_SET_PT_BOTH (saved_pt + (coding->produced_char - chars), | 7802 | TEMP_SET_PT_BOTH (saved_pt + (coding->produced_char - chars), |
| 7803 | saved_pt_byte + (coding->produced - bytes)); | 7803 | saved_pt_byte + (coding->produced - bytes)); |
| 7804 | else | 7804 | else |
| @@ -7822,7 +7822,7 @@ decode_coding_object (struct coding_system *coding, | |||
| 7822 | { | 7822 | { |
| 7823 | tail->bytepos = from_byte + coding->produced; | 7823 | tail->bytepos = from_byte + coding->produced; |
| 7824 | tail->charpos | 7824 | tail->charpos |
| 7825 | = (NILP (current_buffer->enable_multibyte_characters) | 7825 | = (NILP (B_ (current_buffer, enable_multibyte_characters)) |
| 7826 | ? tail->bytepos : from + coding->produced_char); | 7826 | ? tail->bytepos : from + coding->produced_char); |
| 7827 | } | 7827 | } |
| 7828 | } | 7828 | } |
| @@ -7960,7 +7960,7 @@ encode_coding_object (struct coding_system *coding, | |||
| 7960 | set_buffer_temp (current); | 7960 | set_buffer_temp (current); |
| 7961 | } | 7961 | } |
| 7962 | coding->dst_multibyte | 7962 | coding->dst_multibyte |
| 7963 | = ! NILP (XBUFFER (dst_object)->enable_multibyte_characters); | 7963 | = ! NILP (B_ (XBUFFER (dst_object), enable_multibyte_characters)); |
| 7964 | } | 7964 | } |
| 7965 | else if (EQ (dst_object, Qt)) | 7965 | else if (EQ (dst_object, Qt)) |
| 7966 | { | 7966 | { |
| @@ -8003,7 +8003,7 @@ encode_coding_object (struct coding_system *coding, | |||
| 8003 | TEMP_SET_PT_BOTH (saved_pt, saved_pt_byte); | 8003 | TEMP_SET_PT_BOTH (saved_pt, saved_pt_byte); |
| 8004 | else if (saved_pt < from + chars) | 8004 | else if (saved_pt < from + chars) |
| 8005 | TEMP_SET_PT_BOTH (from, from_byte); | 8005 | TEMP_SET_PT_BOTH (from, from_byte); |
| 8006 | else if (! NILP (current_buffer->enable_multibyte_characters)) | 8006 | else if (! NILP (B_ (current_buffer, enable_multibyte_characters))) |
| 8007 | TEMP_SET_PT_BOTH (saved_pt + (coding->produced_char - chars), | 8007 | TEMP_SET_PT_BOTH (saved_pt + (coding->produced_char - chars), |
| 8008 | saved_pt_byte + (coding->produced - bytes)); | 8008 | saved_pt_byte + (coding->produced - bytes)); |
| 8009 | else | 8009 | else |
| @@ -8027,7 +8027,7 @@ encode_coding_object (struct coding_system *coding, | |||
| 8027 | { | 8027 | { |
| 8028 | tail->bytepos = from_byte + coding->produced; | 8028 | tail->bytepos = from_byte + coding->produced; |
| 8029 | tail->charpos | 8029 | tail->charpos |
| 8030 | = (NILP (current_buffer->enable_multibyte_characters) | 8030 | = (NILP (B_ (current_buffer, enable_multibyte_characters)) |
| 8031 | ? tail->bytepos : from + coding->produced_char); | 8031 | ? tail->bytepos : from + coding->produced_char); |
| 8032 | } | 8032 | } |
| 8033 | } | 8033 | } |
| @@ -8481,8 +8481,8 @@ highest priority. */) | |||
| 8481 | return detect_coding_system (BYTE_POS_ADDR (from_byte), | 8481 | return detect_coding_system (BYTE_POS_ADDR (from_byte), |
| 8482 | to - from, to_byte - from_byte, | 8482 | to - from, to_byte - from_byte, |
| 8483 | !NILP (highest), | 8483 | !NILP (highest), |
| 8484 | !NILP (current_buffer | 8484 | !NILP (B_ (current_buffer |
| 8485 | ->enable_multibyte_characters), | 8485 | , enable_multibyte_characters)), |
| 8486 | Qnil); | 8486 | Qnil); |
| 8487 | } | 8487 | } |
| 8488 | 8488 | ||
| @@ -8564,7 +8564,7 @@ DEFUN ("find-coding-systems-region-internal", | |||
| 8564 | CHECK_NUMBER_COERCE_MARKER (end); | 8564 | CHECK_NUMBER_COERCE_MARKER (end); |
| 8565 | if (XINT (start) < BEG || XINT (end) > Z || XINT (start) > XINT (end)) | 8565 | if (XINT (start) < BEG || XINT (end) > Z || XINT (start) > XINT (end)) |
| 8566 | args_out_of_range (start, end); | 8566 | args_out_of_range (start, end); |
| 8567 | if (NILP (current_buffer->enable_multibyte_characters)) | 8567 | if (NILP (B_ (current_buffer, enable_multibyte_characters))) |
| 8568 | return Qt; | 8568 | return Qt; |
| 8569 | start_byte = CHAR_TO_BYTE (XINT (start)); | 8569 | start_byte = CHAR_TO_BYTE (XINT (start)); |
| 8570 | end_byte = CHAR_TO_BYTE (XINT (end)); | 8570 | end_byte = CHAR_TO_BYTE (XINT (end)); |
| @@ -8698,7 +8698,7 @@ to the string. */) | |||
| 8698 | validate_region (&start, &end); | 8698 | validate_region (&start, &end); |
| 8699 | from = XINT (start); | 8699 | from = XINT (start); |
| 8700 | to = XINT (end); | 8700 | to = XINT (end); |
| 8701 | if (NILP (current_buffer->enable_multibyte_characters) | 8701 | if (NILP (B_ (current_buffer, enable_multibyte_characters)) |
| 8702 | || (ascii_compatible | 8702 | || (ascii_compatible |
| 8703 | && (to - from) == (CHAR_TO_BYTE (to) - (CHAR_TO_BYTE (from))))) | 8703 | && (to - from) == (CHAR_TO_BYTE (to) - (CHAR_TO_BYTE (from))))) |
| 8704 | return Qnil; | 8704 | return Qnil; |
| @@ -8814,7 +8814,7 @@ is nil. */) | |||
| 8814 | CHECK_NUMBER_COERCE_MARKER (end); | 8814 | CHECK_NUMBER_COERCE_MARKER (end); |
| 8815 | if (XINT (start) < BEG || XINT (end) > Z || XINT (start) > XINT (end)) | 8815 | if (XINT (start) < BEG || XINT (end) > Z || XINT (start) > XINT (end)) |
| 8816 | args_out_of_range (start, end); | 8816 | args_out_of_range (start, end); |
| 8817 | if (NILP (current_buffer->enable_multibyte_characters)) | 8817 | if (NILP (B_ (current_buffer, enable_multibyte_characters))) |
| 8818 | return Qnil; | 8818 | return Qnil; |
| 8819 | start_byte = CHAR_TO_BYTE (XINT (start)); | 8819 | start_byte = CHAR_TO_BYTE (XINT (start)); |
| 8820 | end_byte = CHAR_TO_BYTE (XINT (end)); | 8820 | end_byte = CHAR_TO_BYTE (XINT (end)); |