mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.

Browse Source 
Exclude trailing null in string copies.
This commit is contained in:
Karl Heuer 1994-04-06 02:07:40 +00:00
parent 9572a9dd07
commit c9b7c53a82
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/keymap.c
View File

@ -1807,15 +1807,15 @@ nominal alternate\n\
/* Print the minor mode maps. */
for (i = 0; i < nmaps; i++)
{
/* Tht title for a minor mode keymap
/* The title for a minor mode keymap
is constructed at run time.
We let describe_map_tree do the actual insertion
because it takes care of other features when doing so. */
char *title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size);
char *p = title;
char *title, *p;
if (XTYPE (modes[i]) == Lisp_Symbol)
{
p = title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size);
*p++ = '`';
bcopy (XSYMBOL (modes[i])->name->data, p,
XSYMBOL (modes[i])->name->size);
@ -1824,11 +1824,12 @@ nominal alternate\n\
}
else
{
bcopy ("Strangely Named", p, sizeof ("Strangely Named"));
p += sizeof ("Strangely Named");
p = title = (char *) alloca (40 + 20);
bcopy ("Strangely Named", p, sizeof ("Strangely Named") - 1);
p += sizeof ("Strangely Named") - 1;
}
bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings"));
p += sizeof (" Minor Mode Bindings");
bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings") - 1);
p += sizeof (" Minor Mode Bindings") - 1;
*p = 0;
describe_map_tree (maps[i], 0, shadow, prefix, title, 0);