diff options
| author | Eli Zaretskii | 2001-01-02 14:26:22 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-01-02 14:26:22 +0000 |
| commit | da55a2b79af1cf83fa661e26e8932b3f6a26d7f4 (patch) | |
| tree | 1b6706bf3b818340e4a9fc374970d63d0d02a703 /src/coding.c | |
| parent | 478d746bab6b41f54e41ffb5e20eb171c28040d9 (diff) | |
| download | emacs-da55a2b79af1cf83fa661e26e8932b3f6a26d7f4.tar.gz emacs-da55a2b79af1cf83fa661e26e8932b3f6a26d7f4.zip | |
(detect_coding_iso2022, setup_coding_system): Remove
unused variable `i'.
(detect_coding_mask): Remove unused variable `idx'.
(detect_coding): Remove unused variable `i'.
(ccl_coding_driver): Remove unused variable `result'.
(run_pre_post_conversion_on_str): Remove unused variable `prev'.
(decode_coding_string): Remove unused variables `to' and
`gcpro1'.
(encode_coding_string): Remove unused variables `gcpro1' and
`saved_coding_symbol'.
(Ffind_coding_systems_region_internal): Remove function-local
variable args[], leave only the block-local one.
(code_convert_region1): Remove unused variable `len'.
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/src/coding.c b/src/coding.c index 854e2b004b4..cfdaa4dd125 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -1330,7 +1330,7 @@ detect_coding_iso2022 (src, src_end, multibytep) | |||
| 1330 | int mask = CODING_CATEGORY_MASK_ISO; | 1330 | int mask = CODING_CATEGORY_MASK_ISO; |
| 1331 | int mask_found = 0; | 1331 | int mask_found = 0; |
| 1332 | int reg[4], shift_out = 0, single_shifting = 0; | 1332 | int reg[4], shift_out = 0, single_shifting = 0; |
| 1333 | int c, c1, i, charset; | 1333 | int c, c1, charset; |
| 1334 | /* Dummy for ONE_MORE_BYTE. */ | 1334 | /* Dummy for ONE_MORE_BYTE. */ |
| 1335 | struct coding_system dummy_coding; | 1335 | struct coding_system dummy_coding; |
| 1336 | struct coding_system *coding = &dummy_coding; | 1336 | struct coding_system *coding = &dummy_coding; |
| @@ -3383,7 +3383,6 @@ setup_coding_system (coding_system, coding) | |||
| 3383 | { | 3383 | { |
| 3384 | Lisp_Object coding_spec, coding_type, eol_type, plist; | 3384 | Lisp_Object coding_spec, coding_type, eol_type, plist; |
| 3385 | Lisp_Object val; | 3385 | Lisp_Object val; |
| 3386 | int i; | ||
| 3387 | 3386 | ||
| 3388 | /* At first, zero clear all members. */ | 3387 | /* At first, zero clear all members. */ |
| 3389 | bzero (coding, sizeof (struct coding_system)); | 3388 | bzero (coding, sizeof (struct coding_system)); |
| @@ -3928,7 +3927,7 @@ detect_coding_mask (source, src_bytes, priorities, skip, multibytep) | |||
| 3928 | register unsigned char c; | 3927 | register unsigned char c; |
| 3929 | unsigned char *src = source, *src_end = source + src_bytes; | 3928 | unsigned char *src = source, *src_end = source + src_bytes; |
| 3930 | unsigned int mask, utf16_examined_p, iso2022_examined_p; | 3929 | unsigned int mask, utf16_examined_p, iso2022_examined_p; |
| 3931 | int i, idx; | 3930 | int i; |
| 3932 | 3931 | ||
| 3933 | /* At first, skip all ASCII characters and control characters except | 3932 | /* At first, skip all ASCII characters and control characters except |
| 3934 | for three ISO2022 specific control characters. */ | 3933 | for three ISO2022 specific control characters. */ |
| @@ -4090,7 +4089,7 @@ detect_coding (coding, src, src_bytes) | |||
| 4090 | int src_bytes; | 4089 | int src_bytes; |
| 4091 | { | 4090 | { |
| 4092 | unsigned int idx; | 4091 | unsigned int idx; |
| 4093 | int skip, mask, i; | 4092 | int skip, mask; |
| 4094 | Lisp_Object val; | 4093 | Lisp_Object val; |
| 4095 | 4094 | ||
| 4096 | val = Vcoding_category_list; | 4095 | val = Vcoding_category_list; |
| @@ -4422,7 +4421,6 @@ ccl_coding_driver (coding, source, destination, src_bytes, dst_bytes, encodep) | |||
| 4422 | { | 4421 | { |
| 4423 | struct ccl_program *ccl | 4422 | struct ccl_program *ccl |
| 4424 | = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder; | 4423 | = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder; |
| 4425 | int result; | ||
| 4426 | unsigned char *dst = destination; | 4424 | unsigned char *dst = destination; |
| 4427 | 4425 | ||
| 4428 | ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK; | 4426 | ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK; |
| @@ -5743,7 +5741,6 @@ run_pre_post_conversion_on_str (str, coding, encodep) | |||
| 5743 | { | 5741 | { |
| 5744 | int count = specpdl_ptr - specpdl; | 5742 | int count = specpdl_ptr - specpdl; |
| 5745 | struct gcpro gcpro1; | 5743 | struct gcpro gcpro1; |
| 5746 | struct buffer *prev = current_buffer; | ||
| 5747 | int multibyte = STRING_MULTIBYTE (str); | 5744 | int multibyte = STRING_MULTIBYTE (str); |
| 5748 | 5745 | ||
| 5749 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); | 5746 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
| @@ -5780,7 +5777,7 @@ decode_coding_string (str, coding, nocopy) | |||
| 5780 | { | 5777 | { |
| 5781 | int len; | 5778 | int len; |
| 5782 | struct conversion_buffer buf; | 5779 | struct conversion_buffer buf; |
| 5783 | int from, to, to_byte; | 5780 | int from, to_byte; |
| 5784 | struct gcpro gcpro1; | 5781 | struct gcpro gcpro1; |
| 5785 | Lisp_Object saved_coding_symbol; | 5782 | Lisp_Object saved_coding_symbol; |
| 5786 | int result; | 5783 | int result; |
| @@ -5790,7 +5787,6 @@ decode_coding_string (str, coding, nocopy) | |||
| 5790 | int consumed, consumed_char, produced, produced_char; | 5787 | int consumed, consumed_char, produced, produced_char; |
| 5791 | 5788 | ||
| 5792 | from = 0; | 5789 | from = 0; |
| 5793 | to = XSTRING (str)->size; | ||
| 5794 | to_byte = STRING_BYTES (XSTRING (str)); | 5790 | to_byte = STRING_BYTES (XSTRING (str)); |
| 5795 | 5791 | ||
| 5796 | saved_coding_symbol = Qnil; | 5792 | saved_coding_symbol = Qnil; |
| @@ -5949,8 +5945,6 @@ encode_coding_string (str, coding, nocopy) | |||
| 5949 | int len; | 5945 | int len; |
| 5950 | struct conversion_buffer buf; | 5946 | struct conversion_buffer buf; |
| 5951 | int from, to, to_byte; | 5947 | int from, to, to_byte; |
| 5952 | struct gcpro gcpro1; | ||
| 5953 | Lisp_Object saved_coding_symbol; | ||
| 5954 | int result; | 5948 | int result; |
| 5955 | int shrinked_bytes = 0; | 5949 | int shrinked_bytes = 0; |
| 5956 | Lisp_Object newstr; | 5950 | Lisp_Object newstr; |
| @@ -5964,8 +5958,6 @@ encode_coding_string (str, coding, nocopy) | |||
| 5964 | to = XSTRING (str)->size; | 5958 | to = XSTRING (str)->size; |
| 5965 | to_byte = STRING_BYTES (XSTRING (str)); | 5959 | to_byte = STRING_BYTES (XSTRING (str)); |
| 5966 | 5960 | ||
| 5967 | saved_coding_symbol = Qnil; | ||
| 5968 | |||
| 5969 | /* Encoding routines determine the multibyteness of the source text | 5961 | /* Encoding routines determine the multibyteness of the source text |
| 5970 | by coding->src_multibyte. */ | 5962 | by coding->src_multibyte. */ |
| 5971 | coding->src_multibyte = STRING_MULTIBYTE (str); | 5963 | coding->src_multibyte = STRING_MULTIBYTE (str); |
| @@ -6310,7 +6302,6 @@ DEFUN ("find-coding-systems-region-internal", | |||
| 6310 | int non_ascii_p = 0; | 6302 | int non_ascii_p = 0; |
| 6311 | int single_byte_char_found = 0; | 6303 | int single_byte_char_found = 0; |
| 6312 | unsigned char *p1, *p1end, *p2, *p2end, *p; | 6304 | unsigned char *p1, *p1end, *p2, *p2end, *p; |
| 6313 | Lisp_Object args[2]; | ||
| 6314 | 6305 | ||
| 6315 | if (STRINGP (start)) | 6306 | if (STRINGP (start)) |
| 6316 | { | 6307 | { |
| @@ -6388,7 +6379,7 @@ code_convert_region1 (start, end, coding_system, encodep) | |||
| 6388 | int encodep; | 6379 | int encodep; |
| 6389 | { | 6380 | { |
| 6390 | struct coding_system coding; | 6381 | struct coding_system coding; |
| 6391 | int from, to, len; | 6382 | int from, to; |
| 6392 | 6383 | ||
| 6393 | CHECK_NUMBER_COERCE_MARKER (start, 0); | 6384 | CHECK_NUMBER_COERCE_MARKER (start, 0); |
| 6394 | CHECK_NUMBER_COERCE_MARKER (end, 1); | 6385 | CHECK_NUMBER_COERCE_MARKER (end, 1); |