# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 978445582 0
# Node ID 8cd5e6ad71a284be8619a317caad41247750271d
# Parent  cf1115a9c758919c5529f3a523307ab6aade0592
(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'.

diff -r cf1115a9c758 -r 8cd5e6ad71a2 src/coding.c
--- a/src/coding.c	Tue Jan 02 14:24:29 2001 +0000
+++ b/src/coding.c	Tue Jan 02 14:26:22 2001 +0000
@@ -1330,7 +1330,7 @@
   int mask = CODING_CATEGORY_MASK_ISO;
   int mask_found = 0;
   int reg[4], shift_out = 0, single_shifting = 0;
-  int c, c1, i, charset;
+  int c, c1, charset;
   /* Dummy for ONE_MORE_BYTE.  */
   struct coding_system dummy_coding;
   struct coding_system *coding = &dummy_coding;
@@ -3383,7 +3383,6 @@
 {
   Lisp_Object coding_spec, coding_type, eol_type, plist;
   Lisp_Object val;
-  int i;
 
   /* At first, zero clear all members.  */
   bzero (coding, sizeof (struct coding_system));
@@ -3928,7 +3927,7 @@
   register unsigned char c;
   unsigned char *src = source, *src_end = source + src_bytes;
   unsigned int mask, utf16_examined_p, iso2022_examined_p;
-  int i, idx;
+  int i;
 
   /* At first, skip all ASCII characters and control characters except
      for three ISO2022 specific control characters.  */
@@ -4090,7 +4089,7 @@
      int src_bytes;
 {
   unsigned int idx;
-  int skip, mask, i;
+  int skip, mask;
   Lisp_Object val;
 
   val = Vcoding_category_list;
@@ -4422,7 +4421,6 @@
 {
   struct ccl_program *ccl
     = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder;
-  int result;
   unsigned char *dst = destination;
 
   ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK;
@@ -5743,7 +5741,6 @@
 {
   int count = specpdl_ptr - specpdl;
   struct gcpro gcpro1;
-  struct buffer *prev = current_buffer;
   int multibyte = STRING_MULTIBYTE (str);
 
   record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
@@ -5780,7 +5777,7 @@
 {
   int len;
   struct conversion_buffer buf;
-  int from, to, to_byte;
+  int from, to_byte;
   struct gcpro gcpro1;
   Lisp_Object saved_coding_symbol;
   int result;
@@ -5790,7 +5787,6 @@
   int consumed, consumed_char, produced, produced_char;
 
   from = 0;
-  to = XSTRING (str)->size;
   to_byte = STRING_BYTES (XSTRING (str));
 
   saved_coding_symbol = Qnil;
@@ -5949,8 +5945,6 @@
   int len;
   struct conversion_buffer buf;
   int from, to, to_byte;
-  struct gcpro gcpro1;
-  Lisp_Object saved_coding_symbol;
   int result;
   int shrinked_bytes = 0;
   Lisp_Object newstr;
@@ -5964,8 +5958,6 @@
   to = XSTRING (str)->size;
   to_byte = STRING_BYTES (XSTRING (str));
 
-  saved_coding_symbol = Qnil;
-
   /* Encoding routines determine the multibyteness of the source text
      by coding->src_multibyte.  */
   coding->src_multibyte = STRING_MULTIBYTE (str);
@@ -6310,7 +6302,6 @@
   int non_ascii_p = 0;
   int single_byte_char_found = 0;
   unsigned char *p1, *p1end, *p2, *p2end, *p;
-  Lisp_Object args[2];
 
   if (STRINGP (start))
     {
@@ -6388,7 +6379,7 @@
      int encodep;
 {
   struct coding_system coding;
-  int from, to, len;
+  int from, to;
 
   CHECK_NUMBER_COERCE_MARKER (start, 0);
   CHECK_NUMBER_COERCE_MARKER (end, 1);