comparison src/doc.c @ 20802:8cd0a6343a84

(Fsubstitute_command_keys): Declare length_byte out of internal block.
author Kenichi Handa <handa@m17n.org>
date Fri, 30 Jan 1998 11:05:41 +0000
parents ed9ed828415e
children 50929073a0ba
comparison
equal deleted inserted replaced
20801:8aeddd528f57 20802:8cd0a6343a84
534 int bsize; 534 int bsize;
535 unsigned char *new; 535 unsigned char *new;
536 Lisp_Object tem; 536 Lisp_Object tem;
537 Lisp_Object keymap; 537 Lisp_Object keymap;
538 unsigned char *start; 538 unsigned char *start;
539 int length; 539 int length, length_byte;
540 Lisp_Object name; 540 Lisp_Object name;
541 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; 541 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
542 int multibyte; 542 int multibyte;
543 int nchars; 543 int nchars;
544 544
592 *bufp++ = *strp++, nchars++; 592 *bufp++ = *strp++, nchars++;
593 } 593 }
594 else if (strp[0] == '\\' && strp[1] == '[') 594 else if (strp[0] == '\\' && strp[1] == '[')
595 { 595 {
596 Lisp_Object firstkey; 596 Lisp_Object firstkey;
597 int length_byte;
598 597
599 changed = 1; 598 changed = 1;
600 strp += 2; /* skip \[ */ 599 strp += 2; /* skip \[ */
601 start = strp; 600 start = strp;
602 601
646 /* \{foo} is replaced with a summary of the keymap (symbol-value foo). 645 /* \{foo} is replaced with a summary of the keymap (symbol-value foo).
647 \<foo> just sets the keymap used for \[cmd]. */ 646 \<foo> just sets the keymap used for \[cmd]. */
648 else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<')) 647 else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<'))
649 { 648 {
650 struct buffer *oldbuf; 649 struct buffer *oldbuf;
651 int length_byte;
652 650
653 changed = 1; 651 changed = 1;
654 strp += 2; /* skip \{ or \< */ 652 strp += 2; /* skip \{ or \< */
655 start = strp; 653 start = strp;
656 654