mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 12:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(describe_buffer_bindings): gcpro stuff. Delete some unused code.

Browse source
This commit is contained in:
Karl Heuer 1994-04-29 03:40:16 +00:00
parent 57c9eb6894
commit d7ab90a9b4
1 changed files with 13 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/keymap.c
View file

@ -1752,7 +1752,8 @@ describe_buffer_bindings (arg)
Lisp_Object arg;
{
Lisp_Object descbuf, prefix, shadow;
register Lisp_Object start1, start2;
register Lisp_Object start1;
struct gcpro gcpro1;
char *alternate_heading
= "\
@ -1763,6 +1764,7 @@ nominal alternate\n\
descbuf = XCONS (arg)->car;
prefix = XCONS (arg)->cdr;
shadow = Qnil;
GCPRO1 (shadow);
Fset_buffer (Vstandard_output);
@ -1819,21 +1821,15 @@ nominal alternate\n\
because it takes care of other features when doing so. */
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);
p += XSYMBOL (modes[i])->name->size;
*p++ = '\'';
}
else
{
p = title = (char *) alloca (40 + 20);
bcopy ("Strangely Named", p, sizeof ("Strangely Named") - 1);
p += sizeof ("Strangely Named") - 1;
}
if (XTYPE (modes[i]) != Lisp_Symbol)
abort();
p = title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size);
*p++ = '`';
bcopy (XSYMBOL (modes[i])->name->data, p,
XSYMBOL (modes[i])->name->size);
p += XSYMBOL (modes[i])->name->size;
*p++ = '\'';
bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings") - 1);
p += sizeof (" Minor Mode Bindings") - 1;
*p = 0;
@ -1860,6 +1856,7 @@ nominal alternate\n\
"Global Bindings", 0);
Fset_buffer (descbuf);
UNGCPRO;
return Qnil;
}