aboutsummaryrefslogtreecommitdiffstats
path: root/src/coding.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/coding.c')
-rw-r--r--src/coding.c10
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
304Lisp_Object Qcoding_system, Qcoding_aliases, Qeol_type; 304Lisp_Object Qcoding_system, Qcoding_aliases, Qeol_type;
305Lisp_Object Qunix, Qdos; 305Lisp_Object Qunix, Qdos;
306extern Lisp_Object Qmac; /* frame.c */
307Lisp_Object Qbuffer_file_coding_system; 306Lisp_Object Qbuffer_file_coding_system;
308Lisp_Object Qpost_read_conversion, Qpre_write_conversion; 307Lisp_Object Qpost_read_conversion, Qpre_write_conversion;
309Lisp_Object Qdefault_char; 308Lisp_Object Qdefault_char;
@@ -317,7 +316,6 @@ Lisp_Object QCdecode_translation_table, QCencode_translation_table;
317Lisp_Object QCpost_read_conversion, QCpre_write_conversion; 316Lisp_Object QCpost_read_conversion, QCpre_write_conversion;
318Lisp_Object QCascii_compatible_p; 317Lisp_Object QCascii_compatible_p;
319 318
320extern Lisp_Object Qinsert_file_contents, Qwrite_region;
321Lisp_Object Qcall_process, Qcall_process_region; 319Lisp_Object Qcall_process, Qcall_process_region;
322Lisp_Object Qstart_process, Qopen_network_stream; 320Lisp_Object Qstart_process, Qopen_network_stream;
323Lisp_Object Qtarget_idx; 321Lisp_Object Qtarget_idx;
@@ -325,8 +323,6 @@ Lisp_Object Qtarget_idx;
325Lisp_Object Qinsufficient_source, Qinconsistent_eol, Qinvalid_source; 323Lisp_Object Qinsufficient_source, Qinconsistent_eol, Qinvalid_source;
326Lisp_Object Qinterrupted, Qinsufficient_memory; 324Lisp_Object Qinterrupted, Qinsufficient_memory;
327 325
328extern 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. */
332static Lisp_Object Qcoding_system_define_form; 328static 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 \