# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767590816 0
# Node ID 092688f7ebbb7088595ea73f592a0f2fde3355d4
# Parent  3d155f671ac2443a9197c4333a366d4c4ac04733
(describe_buffer_bindings): gcpro stuff.  Delete some unused code.

diff -r 3d155f671ac2 -r 092688f7ebbb src/keymap.c
--- a/src/keymap.c	Fri Apr 29 03:06:08 1994 +0000
+++ b/src/keymap.c	Fri Apr 29 03:40:16 1994 +0000
@@ -1752,7 +1752,8 @@
      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 @@
   descbuf = XCONS (arg)->car;
   prefix = XCONS (arg)->cdr;
   shadow = Qnil;
+  GCPRO1 (shadow);
 
   Fset_buffer (Vstandard_output);
 
@@ -1819,21 +1821,15 @@
 	   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 @@
 		     "Global Bindings", 0);
 
   Fset_buffer (descbuf);
+  UNGCPRO;
   return Qnil;
 }