diff options
| author | Sam Steingold | 2001-12-17 15:21:06 +0000 |
|---|---|---|
| committer | Sam Steingold | 2001-12-17 15:21:06 +0000 |
| commit | 93dec0196becfb2d190dcd3c5eca1715388c6b9f (patch) | |
| tree | 21a9c03ef3920269a31c295f921148e71702e9f0 /src | |
| parent | c8446041d5248f2cba5b0252421213230ec37903 (diff) | |
| download | emacs-93dec0196becfb2d190dcd3c5eca1715388c6b9f.tar.gz emacs-93dec0196becfb2d190dcd3c5eca1715388c6b9f.zip | |
(DECODE_COMPOSITION_END): Fixed a typo in the last
patch (COMPOSING_P, not COMPOSING).
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/coding.c | 42 |
2 files changed, 27 insertions, 22 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 8e9e4fef1c0..25795977b96 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2001-12-17 Sam Steingold <sds@gnu.org> | ||
| 2 | |||
| 3 | * coding.c (DECODE_COMPOSITION_END): Fixed a typo in the last | ||
| 4 | patch (COMPOSING_P, not COMPOSING). | ||
| 5 | |||
| 1 | 2001-12-17 Richard M. Stallman <rms@gnu.org> | 6 | 2001-12-17 Richard M. Stallman <rms@gnu.org> |
| 2 | 7 | ||
| 3 | * coding.c (DECODE_COMPOSITION_END): Check for ! COMPOSING (coding) | 8 | * coding.c (DECODE_COMPOSITION_END): Check for ! COMPOSING (coding) |
| @@ -491,7 +496,7 @@ | |||
| 491 | (w32_wnd_proc) <WM_MENUSELECT>: Show help echo directly. | 496 | (w32_wnd_proc) <WM_MENUSELECT>: Show help echo directly. |
| 492 | (my_create_tip_window): New function. | 497 | (my_create_tip_window): New function. |
| 493 | (x_create_tip_frame, compute_tip_xy): Adapt for Windows. | 498 | (x_create_tip_frame, compute_tip_xy): Adapt for Windows. |
| 494 | (Fx_show_tip, Fx_hide_tip) [TEST_TOOLTIPS]: Adapt for Windows. | 499 | (Fx_show_tip, Fx_hide_tip) [TEST_TOOLTIPS]: Adapt for Windows. |
| 495 | 500 | ||
| 496 | 2001-11-20 Jason Rumney <jasonr@gnu.org> | 501 | 2001-11-20 Jason Rumney <jasonr@gnu.org> |
| 497 | 502 | ||
diff --git a/src/coding.c b/src/coding.c index 9c45a65ff88..6083af6eabc 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -60,7 +60,7 @@ Boston, MA 02111-1307, USA. */ | |||
| 60 | all variants of ISO2022. Details are described in section 3. | 60 | all variants of ISO2022. Details are described in section 3. |
| 61 | 61 | ||
| 62 | 2. SJIS (or Shift-JIS or MS-Kanji-Code) | 62 | 2. SJIS (or Shift-JIS or MS-Kanji-Code) |
| 63 | 63 | ||
| 64 | A coding system to encode character sets: ASCII, JISX0201, and | 64 | A coding system to encode character sets: ASCII, JISX0201, and |
| 65 | JISX0208. Widely used for PC's in Japan. Details are described in | 65 | JISX0208. Widely used for PC's in Japan. Details are described in |
| 66 | section 4. | 66 | section 4. |
| @@ -503,7 +503,7 @@ coding_safe_chars (coding) | |||
| 503 | struct coding_system *coding; | 503 | struct coding_system *coding; |
| 504 | { | 504 | { |
| 505 | Lisp_Object coding_spec, plist, safe_chars; | 505 | Lisp_Object coding_spec, plist, safe_chars; |
| 506 | 506 | ||
| 507 | coding_spec = Fget (coding->symbol, Qcoding_system); | 507 | coding_spec = Fget (coding->symbol, Qcoding_system); |
| 508 | plist = XVECTOR (coding_spec)->contents[3]; | 508 | plist = XVECTOR (coding_spec)->contents[3]; |
| 509 | safe_chars = Fplist_get (XVECTOR (coding_spec)->contents[3], Qsafe_chars); | 509 | safe_chars = Fplist_get (XVECTOR (coding_spec)->contents[3], Qsafe_chars); |
| @@ -889,7 +889,7 @@ decode_composition_emacs_mule (coding, src, src_end, | |||
| 889 | CODING_ADD_COMPOSITION_START (coding, coding->produced_char, method); | 889 | CODING_ADD_COMPOSITION_START (coding, coding->produced_char, method); |
| 890 | for (i = 0; i < ncomponent; i++) | 890 | for (i = 0; i < ncomponent; i++) |
| 891 | CODING_ADD_COMPOSITION_COMPONENT (coding, component[i]); | 891 | CODING_ADD_COMPOSITION_COMPONENT (coding, component[i]); |
| 892 | CODING_ADD_COMPOSITION_END (coding, coding->produced_char + nchars); | 892 | CODING_ADD_COMPOSITION_END (coding, coding->produced_char + nchars); |
| 893 | if (buf < bufp) | 893 | if (buf < bufp) |
| 894 | { | 894 | { |
| 895 | unsigned char *p = buf; | 895 | unsigned char *p = buf; |
| @@ -1055,7 +1055,7 @@ decode_coding_emacs_mule (coding, source, destination, src_bytes, dst_bytes) | |||
| 1055 | coding->cmp_data_start = 0; \ | 1055 | coding->cmp_data_start = 0; \ |
| 1056 | } \ | 1056 | } \ |
| 1057 | } while (0) | 1057 | } while (0) |
| 1058 | 1058 | ||
| 1059 | 1059 | ||
| 1060 | static void encode_eol P_ ((struct coding_system *, unsigned char *, | 1060 | static void encode_eol P_ ((struct coding_system *, unsigned char *, |
| 1061 | unsigned char *, int, int)); | 1061 | unsigned char *, int, int)); |
| @@ -1433,7 +1433,7 @@ detect_coding_iso2022 (src, src_end, multibytep) | |||
| 1433 | mask_found |= CODING_CATEGORY_MASK_ISO_SHIFT; | 1433 | mask_found |= CODING_CATEGORY_MASK_ISO_SHIFT; |
| 1434 | } | 1434 | } |
| 1435 | break; | 1435 | break; |
| 1436 | 1436 | ||
| 1437 | case ISO_CODE_SI: | 1437 | case ISO_CODE_SI: |
| 1438 | if (inhibit_iso_escape_detection) | 1438 | if (inhibit_iso_escape_detection) |
| 1439 | break; | 1439 | break; |
| @@ -1665,7 +1665,7 @@ coding_allocate_composition_data (coding, char_offset) | |||
| 1665 | 1665 | ||
| 1666 | #define DECODE_COMPOSITION_END(c1) \ | 1666 | #define DECODE_COMPOSITION_END(c1) \ |
| 1667 | do { \ | 1667 | do { \ |
| 1668 | if (! COMPOSING (coding)) \ | 1668 | if (! COMPOSING_P (coding)) \ |
| 1669 | { \ | 1669 | { \ |
| 1670 | *dst++ = ISO_CODE_ESC; \ | 1670 | *dst++ = ISO_CODE_ESC; \ |
| 1671 | *dst++ = c1; \ | 1671 | *dst++ = c1; \ |
| @@ -2439,7 +2439,7 @@ encode_designation_at_bol (coding, translation_table, src, src_end, dst) | |||
| 2439 | ONE_MORE_CHAR (c); | 2439 | ONE_MORE_CHAR (c); |
| 2440 | if (c == '\n') | 2440 | if (c == '\n') |
| 2441 | break; | 2441 | break; |
| 2442 | 2442 | ||
| 2443 | charset = CHAR_CHARSET (c); | 2443 | charset = CHAR_CHARSET (c); |
| 2444 | reg = CODING_SPEC_ISO_REQUESTED_DESIGNATION (coding, charset); | 2444 | reg = CODING_SPEC_ISO_REQUESTED_DESIGNATION (coding, charset); |
| 2445 | if (reg != CODING_SPEC_ISO_NO_REQUESTED_DESIGNATION && r[reg] < 0) | 2445 | if (reg != CODING_SPEC_ISO_NO_REQUESTED_DESIGNATION && r[reg] < 0) |
| @@ -2609,7 +2609,7 @@ encode_coding_iso2022 (coding, source, destination, src_bytes, dst_bytes) | |||
| 2609 | *dst++ = ISO_CODE_CR; | 2609 | *dst++ = ISO_CODE_CR; |
| 2610 | CODING_SPEC_ISO_BOL (coding) = 1; | 2610 | CODING_SPEC_ISO_BOL (coding) = 1; |
| 2611 | } | 2611 | } |
| 2612 | else | 2612 | else |
| 2613 | { | 2613 | { |
| 2614 | if (coding->flags & CODING_FLAG_ISO_RESET_AT_CNTL) | 2614 | if (coding->flags & CODING_FLAG_ISO_RESET_AT_CNTL) |
| 2615 | ENCODE_RESET_PLANE_AND_REGISTER; | 2615 | ENCODE_RESET_PLANE_AND_REGISTER; |
| @@ -3032,7 +3032,7 @@ encode_coding_sjis_big5 (coding, source, destination, | |||
| 3032 | 3032 | ||
| 3033 | src_base = src; | 3033 | src_base = src; |
| 3034 | ONE_MORE_CHAR (c); | 3034 | ONE_MORE_CHAR (c); |
| 3035 | 3035 | ||
| 3036 | /* Now encode the character C. */ | 3036 | /* Now encode the character C. */ |
| 3037 | if (SINGLE_BYTE_CHAR_P (c)) | 3037 | if (SINGLE_BYTE_CHAR_P (c)) |
| 3038 | { | 3038 | { |
| @@ -3357,7 +3357,7 @@ encode_eol (coding, source, destination, src_bytes, dst_bytes) | |||
| 3357 | 3357 | ||
| 3358 | If the value is nil, graphic register N is never used on | 3358 | If the value is nil, graphic register N is never used on |
| 3359 | encoding. | 3359 | encoding. |
| 3360 | 3360 | ||
| 3361 | sub-element[N] where N is 4 through 11: to be set in `coding->flags' | 3361 | sub-element[N] where N is 4 through 11: to be set in `coding->flags' |
| 3362 | Each value takes t or nil. See the section ISO2022 of | 3362 | Each value takes t or nil. See the section ISO2022 of |
| 3363 | `coding.h' for more information. | 3363 | `coding.h' for more information. |
| @@ -3481,7 +3481,7 @@ setup_coding_system (coding_system, coding) | |||
| 3481 | } | 3481 | } |
| 3482 | else | 3482 | else |
| 3483 | goto label_invalid_coding_system; | 3483 | goto label_invalid_coding_system; |
| 3484 | 3484 | ||
| 3485 | /* If the coding system has non-nil `composition' property, enable | 3485 | /* If the coding system has non-nil `composition' property, enable |
| 3486 | composition handling. */ | 3486 | composition handling. */ |
| 3487 | val = Fplist_get (plist, Qcomposition); | 3487 | val = Fplist_get (plist, Qcomposition); |
| @@ -3621,7 +3621,7 @@ setup_coding_system (coding_system, coding) | |||
| 3621 | } | 3621 | } |
| 3622 | else | 3622 | else |
| 3623 | CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i) = -1; | 3623 | CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i) = -1; |
| 3624 | 3624 | ||
| 3625 | CODING_SPEC_ISO_DESIGNATION (coding, i) | 3625 | CODING_SPEC_ISO_DESIGNATION (coding, i) |
| 3626 | = CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i); | 3626 | = CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i); |
| 3627 | } | 3627 | } |
| @@ -3994,7 +3994,7 @@ detect_coding_mask (source, src_bytes, priorities, skip, multibytep) | |||
| 3994 | | CODING_CATEGORY_MASK_UTF_16_LE); | 3994 | | CODING_CATEGORY_MASK_UTF_16_LE); |
| 3995 | 3995 | ||
| 3996 | /* Or, if C is a special latin extra code, | 3996 | /* Or, if C is a special latin extra code, |
| 3997 | or is an ISO2022 specific control code of C1 (SS2 or SS3), | 3997 | or is an ISO2022 specific control code of C1 (SS2 or SS3), |
| 3998 | or is an ISO2022 control-sequence-introducer (CSI), | 3998 | or is an ISO2022 control-sequence-introducer (CSI), |
| 3999 | we should also consider the possibility of ISO2022 codings. */ | 3999 | we should also consider the possibility of ISO2022 codings. */ |
| 4000 | if ((VECTORP (Vlatin_extra_code_table) | 4000 | if ((VECTORP (Vlatin_extra_code_table) |
| @@ -5101,7 +5101,7 @@ shrink_encoding_region (beg, end, coding, str) | |||
| 5101 | break; | 5101 | break; |
| 5102 | if (coding->flags & CODING_FLAG_ISO_DESIGNATE_AT_BOL) | 5102 | if (coding->flags & CODING_FLAG_ISO_DESIGNATE_AT_BOL) |
| 5103 | { | 5103 | { |
| 5104 | unsigned char *bol = begp; | 5104 | unsigned char *bol = begp; |
| 5105 | while (begp < endp && *begp < 0x80) | 5105 | while (begp < endp && *begp < 0x80) |
| 5106 | { | 5106 | { |
| 5107 | begp++; | 5107 | begp++; |
| @@ -5599,7 +5599,7 @@ code_convert_region (from, from_byte, to, to_byte, coding, encodep, replace) | |||
| 5599 | coding->symbol = XVECTOR (eol_type)->contents[CODING_EOL_LF]; | 5599 | coding->symbol = XVECTOR (eol_type)->contents[CODING_EOL_LF]; |
| 5600 | else | 5600 | else |
| 5601 | coding->symbol = saved_coding_symbol; | 5601 | coding->symbol = saved_coding_symbol; |
| 5602 | 5602 | ||
| 5603 | continue; | 5603 | continue; |
| 5604 | } | 5604 | } |
| 5605 | if (len_byte <= 0) | 5605 | if (len_byte <= 0) |
| @@ -5617,7 +5617,7 @@ code_convert_region (from, from_byte, to, to_byte, coding, encodep, replace) | |||
| 5617 | if (multibyte_p) | 5617 | if (multibyte_p) |
| 5618 | { | 5618 | { |
| 5619 | unsigned char *start = dst; | 5619 | unsigned char *start = dst; |
| 5620 | 5620 | ||
| 5621 | inserted += len_byte; | 5621 | inserted += len_byte; |
| 5622 | while (len_byte--) | 5622 | while (len_byte--) |
| 5623 | { | 5623 | { |
| @@ -5700,7 +5700,7 @@ code_convert_region (from, from_byte, to, to_byte, coding, encodep, replace) | |||
| 5700 | inserted_byte = str_to_multibyte (GPT_ADDR, GAP_SIZE, inserted_byte); | 5700 | inserted_byte = str_to_multibyte (GPT_ADDR, GAP_SIZE, inserted_byte); |
| 5701 | } | 5701 | } |
| 5702 | 5702 | ||
| 5703 | /* If we shrank the conversion area, adjust it now. */ | 5703 | /* If we shrank the conversion area, adjust it now. */ |
| 5704 | if (total_skip > 0) | 5704 | if (total_skip > 0) |
| 5705 | { | 5705 | { |
| 5706 | if (tail_skip > 0) | 5706 | if (tail_skip > 0) |
| @@ -5942,7 +5942,7 @@ decode_coding_string (str, coding, nocopy) | |||
| 5942 | } | 5942 | } |
| 5943 | produced += num_eol; | 5943 | produced += num_eol; |
| 5944 | produced_char += num_eol; | 5944 | produced_char += num_eol; |
| 5945 | } | 5945 | } |
| 5946 | /* Suppress eol-format conversion in the further conversion. */ | 5946 | /* Suppress eol-format conversion in the further conversion. */ |
| 5947 | coding->eol_type = CODING_EOL_LF; | 5947 | coding->eol_type = CODING_EOL_LF; |
| 5948 | 5948 | ||
| @@ -6212,7 +6212,7 @@ detect_coding_system (src, src_bytes, highest, multibytep) | |||
| 6212 | } | 6212 | } |
| 6213 | } | 6213 | } |
| 6214 | return (highest ? XCAR (val) : val); | 6214 | return (highest ? XCAR (val) : val); |
| 6215 | } | 6215 | } |
| 6216 | 6216 | ||
| 6217 | DEFUN ("detect-coding-region", Fdetect_coding_region, Sdetect_coding_region, | 6217 | DEFUN ("detect-coding-region", Fdetect_coding_region, Sdetect_coding_region, |
| 6218 | 2, 3, 0, | 6218 | 2, 3, 0, |
| @@ -6408,7 +6408,7 @@ DEFUN ("find-coding-systems-region-internal", | |||
| 6408 | for (p = p1; p < p1end && ASCII_BYTE_P (*p); p++); | 6408 | for (p = p1; p < p1end && ASCII_BYTE_P (*p); p++); |
| 6409 | if (p == p1end) | 6409 | if (p == p1end) |
| 6410 | { | 6410 | { |
| 6411 | for (p = p2; p < p2end && ASCII_BYTE_P (*p); p++); | 6411 | for (p = p2; p < p2end && ASCII_BYTE_P (*p); p++); |
| 6412 | if (p == p2end) | 6412 | if (p == p2end) |
| 6413 | return Qt; | 6413 | return Qt; |
| 6414 | } | 6414 | } |
| @@ -6940,7 +6940,7 @@ init_coding_once () | |||
| 6940 | { | 6940 | { |
| 6941 | int i; | 6941 | int i; |
| 6942 | 6942 | ||
| 6943 | /* Emacs' internal format specific initialize routine. */ | 6943 | /* Emacs' internal format specific initialize routine. */ |
| 6944 | for (i = 0; i <= 0x20; i++) | 6944 | for (i = 0; i <= 0x20; i++) |
| 6945 | emacs_code_class[i] = EMACS_control_code; | 6945 | emacs_code_class[i] = EMACS_control_code; |
| 6946 | emacs_code_class[0x0A] = EMACS_linefeed_code; | 6946 | emacs_code_class[0x0A] = EMACS_linefeed_code; |