# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 886158341 0
# Node ID 8cd0a6343a8448a1785d29862ad9ce0dc62f6c75
# Parent  8aeddd528f573d3f3df60fc131cc59b260a9d226
(Fsubstitute_command_keys): Declare length_byte out of
internal block.

diff -r 8aeddd528f57 -r 8cd0a6343a84 src/doc.c
--- a/src/doc.c	Fri Jan 30 02:15:13 1998 +0000
+++ b/src/doc.c	Fri Jan 30 11:05:41 1998 +0000
@@ -536,7 +536,7 @@
   Lisp_Object tem;
   Lisp_Object keymap;
   unsigned char *start;
-  int length;
+  int length, length_byte;
   Lisp_Object name;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   int multibyte;
@@ -594,7 +594,6 @@
       else if (strp[0] == '\\' && strp[1] == '[')
 	{
 	  Lisp_Object firstkey;
-	  int length_byte;
 
 	  changed = 1;
 	  strp += 2;		/* skip \[ */
@@ -648,7 +647,6 @@
       else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<'))
 	{
 	  struct buffer *oldbuf;
-	  int length_byte;
 
 	  changed = 1;
 	  strp += 2;		/* skip \{ or \< */