Mercurial > emacs
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 |