comparison src/keymap.c @ 4575:bf0f07186369

(describe_buffer_bindings): Declare shadow just once.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Aug 1993 21:10:44 +0000
parents 42faad1466fa
children 1fc792473491
comparison
equal deleted inserted replaced
4574:503af6aa135b 4575:bf0f07186369
1681 nominal alternate\n\ 1681 nominal alternate\n\
1682 ------- ---------\n"; 1682 ------- ---------\n";
1683 1683
1684 descbuf = XCONS (arg)->car; 1684 descbuf = XCONS (arg)->car;
1685 prefix = XCONS (arg)->cdr; 1685 prefix = XCONS (arg)->cdr;
1686 shadow = Qnil;
1686 1687
1687 Fset_buffer (Vstandard_output); 1688 Fset_buffer (Vstandard_output);
1688 1689
1689 /* Report on alternates for keys. */ 1690 /* Report on alternates for keys. */
1690 if (XTYPE (Vkeyboard_translate_table) == Lisp_String) 1691 if (XTYPE (Vkeyboard_translate_table) == Lisp_String)
1718 } 1719 }
1719 1720
1720 { 1721 {
1721 int i, nmaps; 1722 int i, nmaps;
1722 Lisp_Object *modes, *maps; 1723 Lisp_Object *modes, *maps;
1723 Lisp_Object shadow;
1724
1725 shadow = Qnil;
1726 1724
1727 /* Temporarily switch to descbuf, so that we can get that buffer's 1725 /* Temporarily switch to descbuf, so that we can get that buffer's
1728 minor modes correctly. */ 1726 minor modes correctly. */
1729 Fset_buffer (descbuf); 1727 Fset_buffer (descbuf);
1730 nmaps = current_minor_maps (&modes, &maps); 1728 nmaps = current_minor_maps (&modes, &maps);
1731 Fset_buffer (Vstandard_output); 1729 Fset_buffer (Vstandard_output);
1732
1733 shadow = Qnil;
1734 1730
1735 /* Print the minor mode maps. */ 1731 /* Print the minor mode maps. */
1736 for (i = 0; i < nmaps; i++) 1732 for (i = 0; i < nmaps; i++)
1737 { 1733 {
1738 /* Tht title for a minor mode keymap 1734 /* Tht title for a minor mode keymap