diff options
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/coding.c b/src/coding.c index dcd31fe9f28..6012978b60a 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -303,7 +303,6 @@ Lisp_Object Vcoding_system_hash_table; | |||
| 303 | 303 | ||
| 304 | Lisp_Object Qcoding_system, Qcoding_aliases, Qeol_type; | 304 | Lisp_Object Qcoding_system, Qcoding_aliases, Qeol_type; |
| 305 | Lisp_Object Qunix, Qdos; | 305 | Lisp_Object Qunix, Qdos; |
| 306 | extern Lisp_Object Qmac; /* frame.c */ | ||
| 307 | Lisp_Object Qbuffer_file_coding_system; | 306 | Lisp_Object Qbuffer_file_coding_system; |
| 308 | Lisp_Object Qpost_read_conversion, Qpre_write_conversion; | 307 | Lisp_Object Qpost_read_conversion, Qpre_write_conversion; |
| 309 | Lisp_Object Qdefault_char; | 308 | Lisp_Object Qdefault_char; |
| @@ -317,7 +316,6 @@ Lisp_Object QCdecode_translation_table, QCencode_translation_table; | |||
| 317 | Lisp_Object QCpost_read_conversion, QCpre_write_conversion; | 316 | Lisp_Object QCpost_read_conversion, QCpre_write_conversion; |
| 318 | Lisp_Object QCascii_compatible_p; | 317 | Lisp_Object QCascii_compatible_p; |
| 319 | 318 | ||
| 320 | extern Lisp_Object Qinsert_file_contents, Qwrite_region; | ||
| 321 | Lisp_Object Qcall_process, Qcall_process_region; | 319 | Lisp_Object Qcall_process, Qcall_process_region; |
| 322 | Lisp_Object Qstart_process, Qopen_network_stream; | 320 | Lisp_Object Qstart_process, Qopen_network_stream; |
| 323 | Lisp_Object Qtarget_idx; | 321 | Lisp_Object Qtarget_idx; |
| @@ -325,8 +323,6 @@ Lisp_Object Qtarget_idx; | |||
| 325 | Lisp_Object Qinsufficient_source, Qinconsistent_eol, Qinvalid_source; | 323 | Lisp_Object Qinsufficient_source, Qinconsistent_eol, Qinvalid_source; |
| 326 | Lisp_Object Qinterrupted, Qinsufficient_memory; | 324 | Lisp_Object Qinterrupted, Qinsufficient_memory; |
| 327 | 325 | ||
| 328 | extern Lisp_Object Qcompletion_ignore_case; | ||
| 329 | |||
| 330 | /* If a symbol has this property, evaluate the value to define the | 326 | /* If a symbol has this property, evaluate the value to define the |
| 331 | symbol as a coding system. */ | 327 | symbol as a coding system. */ |
| 332 | static Lisp_Object Qcoding_system_define_form; | 328 | static Lisp_Object Qcoding_system_define_form; |
| @@ -3906,7 +3902,7 @@ decode_coding_iso_2022 (struct coding_system *coding) | |||
| 3906 | int size; | 3902 | int size; |
| 3907 | 3903 | ||
| 3908 | ONE_MORE_BYTE (dim); | 3904 | ONE_MORE_BYTE (dim); |
| 3909 | if (dim < 0 || dim > 4) | 3905 | if (dim < '0' || dim > '4') |
| 3910 | goto invalid_code; | 3906 | goto invalid_code; |
| 3911 | ONE_MORE_BYTE (M); | 3907 | ONE_MORE_BYTE (M); |
| 3912 | if (M < 128) | 3908 | if (M < 128) |
| @@ -4101,8 +4097,8 @@ decode_coding_iso_2022 (struct coding_system *coding) | |||
| 4101 | #define ENCODE_DESIGNATION(charset, reg, coding) \ | 4097 | #define ENCODE_DESIGNATION(charset, reg, coding) \ |
| 4102 | do { \ | 4098 | do { \ |
| 4103 | unsigned char final_char = CHARSET_ISO_FINAL (charset); \ | 4099 | unsigned char final_char = CHARSET_ISO_FINAL (charset); \ |
| 4104 | char *intermediate_char_94 = "()*+"; \ | 4100 | const char *intermediate_char_94 = "()*+"; \ |
| 4105 | char *intermediate_char_96 = ",-./"; \ | 4101 | const char *intermediate_char_96 = ",-./"; \ |
| 4106 | int revision = -1; \ | 4102 | int revision = -1; \ |
| 4107 | int c; \ | 4103 | int c; \ |
| 4108 | \ | 4104 | \ |