# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 961168661 0
# Node ID 5201e6953968eecd455c7d36df2ba1ff8760c935
# Parent  e57ca3c2fb6de9884e7f11b94029f41182442700
(describe_buffer_bindings): Add `\f\n' in front of titles.

diff -r e57ca3c2fb6d -r 5201e6953968 src/keymap.c
--- a/src/keymap.c	Fri Jun 16 13:23:54 2000 +0000
+++ b/src/keymap.c	Fri Jun 16 15:17:41 2000 +0000
@@ -2479,7 +2479,9 @@
 	if (!SYMBOLP (modes[i]))
 	  abort();
 
-	p = title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size);
+	p = title = (char *) alloca (42 + XSYMBOL (modes[i])->name->size);
+	*p++ = '\f';
+	*p++ = '\n';
 	*p++ = '`';
 	bcopy (XSYMBOL (modes[i])->name->data, p,
 	       XSYMBOL (modes[i])->name->size);
@@ -2505,17 +2507,17 @@
   if (!NILP (start1))
     {
       describe_map_tree (start1, 1, shadow, prefix,
-			 "Major Mode Bindings", nomenu, 0, 0);
+			 "\f\nMajor Mode Bindings", nomenu, 0, 0);
       shadow = Fcons (start1, shadow);
     }
 
   describe_map_tree (current_global_map, 1, shadow, prefix,
-		     "Global Bindings", nomenu, 0, 1);
+		     "\f\nGlobal Bindings", nomenu, 0, 1);
 
   /* Print the function-key-map translations under this prefix.  */
   if (!NILP (Vfunction_key_map))
     describe_map_tree (Vfunction_key_map, 0, Qnil, prefix,
-		       "Function key map translations", nomenu, 1, 0);
+		       "\f\nFunction key map translations", nomenu, 1, 0);
 
   call0 (intern ("help-mode"));
   Fset_buffer (descbuf);