aboutsummaryrefslogtreecommitdiffstats
path: root/src/coding.c
diff options
context:
space:
mode:
authorEli Zaretskii2001-01-02 14:26:22 +0000
committerEli Zaretskii2001-01-02 14:26:22 +0000
commitda55a2b79af1cf83fa661e26e8932b3f6a26d7f4 (patch)
tree1b6706bf3b818340e4a9fc374970d63d0d02a703 /src/coding.c
parent478d746bab6b41f54e41ffb5e20eb171c28040d9 (diff)
downloademacs-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.c19
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);