From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Nov 2021 00:44:01 +0000 (+0100)
Subject: Include the major mode name in the `C-h b' output
X-Git-Tag: emacs-29.0.90~3671^2~314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=686d85c767d7c14d0cc6351701396cd71da37630;p=emacs.git

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).
---

diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index dd5063f27d5..8481d0b5e9d 100644
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -111,9 +111,6 @@ C-w  Describe how there is no warranty for Calc."
   (with-current-buffer "*Help*"
     (let ((inhibit-read-only t))
       (goto-char (point-min))
-      (when (search-forward "Major Mode Bindings:" nil t)
-        (delete-region (point-min) (point))
-        (insert "Calc Mode Bindings:"))
       (when (search-forward "Global bindings:" nil t)
         (forward-line -1)
         (delete-region (point) (point-max)))
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,