Say "Key/Binding" instead of "key/binding" in `C-h b'

* lisp/help.el (describe-map-tree): Capitalize the heading.

diff --git a/lisp/help.el b/lisp/help.el
index c4f81401eb9d72b92602f6e1954e97f64e078f35..fcb23fa04596c412491dc736974c615f0e8d8906 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1317,7 +1317,7 @@ Any inserted text ends in two newlines (used by
                           (concat " Starting With "
                                   (help--key-description-fontified prefix)))
                       ":\n"))
-          "\nkey             binding\n"
+          "\nKey             Binding\n"
           (make-separator-line)))))))
 
 (defun help--shadow-lookup (keymap key accept-default remap)

diff --git a/test/lisp/help-tests.el b/test/lisp/help-tests.el
index f9609d8444f20ef565d1d5d3e399fe9f6e47be7b..05ade12cf195fbfe54c54f197cb4903039e70487 100644 (file)
--- a/test/lisp/help-tests.el
+++ b/test/lisp/help-tests.el
@@ -92,7 +92,7 @@
   (with-substitute-command-keys-test
    (test "\\{minibuffer-local-must-match-map}"
          "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-g            abort-minibuffers
 TAB            minibuffer-complete
@@ -249,7 +249,7 @@ M-g M-c             switch-to-completions
      (help-tests-major-mode)
      (test "\\{help-tests-major-mode-map}"
            "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 ( .. )         short-range
 1 .. 4         foo-range
@@ -267,7 +267,7 @@ x           foo-original
      (help-tests-minor-mode)
      (test "\\{help-tests-major-mode-map}"
            "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 ( .. )         short-range
 1 .. 4         foo-range
@@ -288,7 +288,7 @@ x           foo-original
       (define-key help-tests-major-mode-map [remap foo] 'bar)
       (test "\\{help-tests-major-mode-map}"
             "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 <remap>                Prefix Command
 
@@ -305,7 +305,7 @@ key             binding
                                           :help "Help text"))))))
       (describe-map-tree map nil nil nil nil t nil nil nil)
       (should (equal (buffer-string) "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-a            foo
 ")))))
@@ -320,7 +320,7 @@ C-a         foo
                                           :help "Help text"))))))
       (describe-map-tree map nil nil nil nil nil nil nil nil)
       (should (equal (buffer-string) "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-a            foo
 <menu-bar>     Prefix Command
@@ -336,7 +336,7 @@ C-a         foo
           (shadow-maps '((keymap . ((1 . baz))))))
       (describe-map-tree map t shadow-maps nil nil t nil nil t)
       (should (equal (buffer-string) "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-a            foo
   (this binding is currently shadowed)
@@ -351,7 +351,7 @@ C-b         bar
           (shadow-maps '((keymap . ((1 . baz))))))
       (describe-map-tree map t shadow-maps nil nil t nil nil nil)
       (should (equal (buffer-string) "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-b            bar
 ")))))
@@ -363,7 +363,7 @@ C-b         bar
                            (2 . undefined)))))
       (describe-map-tree map t nil nil nil nil nil nil nil)
       (should (equal (buffer-string) "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-a            foo
 ")))))
@@ -375,7 +375,7 @@ C-a         foo
                            (2 . undefined)))))
       (describe-map-tree map nil nil nil nil nil nil nil nil)
       (should (equal (buffer-string) "
-key             binding
+Key             Binding
 -------------------------------------------------------------------------------
 C-a            foo
 C-b            undefined