Include the major mode name in the `C-h b' output

* lisp/calc/calc-help.el (calc-describe-bindings): Don't add the
name since it's there now.

* src/keymap.c (Fdescribe_buffer_bindings): Include the major mode
name for symmetry with the minor modes (and because it's easy to
forget).

1 files changed, 4 insertions, 1 deletions

diff --git a/src/keymap.c b/src/keymap.c
index 08f37dbd8b5..29d2ca7ab7e 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2933,7 +2933,10 @@ You type        Translation\n\
         {
           if (EQ (start1, BVAR (XBUFFER (buffer), keymap)))
             {
-              Lisp_Object msg = build_unibyte_string ("\f\nMajor Mode Bindings");
+              Lisp_Object msg =
+                CALLN (Fformat,
+                       build_unibyte_string ("\f\n`%s' Major Mode Bindings"),
+                       XBUFFER (buffer)->major_mode_);
               CALLN (Ffuncall,
                      Qdescribe_map_tree,
                      start1, Qt, shadow, prefix,