From 97d4edaaa32e42c7953a46716b1a349efd61dac2 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 16 Jun 2000 15:17:41 +0000 Subject: [PATCH] (describe_buffer_bindings): Add `\f\n' in front of titles. --- src/keymap.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index 89271cf3971..fe2368d14cb 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -2479,7 +2479,9 @@ You type Translation\n\ 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 @@ You type Translation\n\ 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); -- 2.39.5