[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0882e98: Say "Key/Binding" instead of "key/binding" in `C-h b'
From: |
Lars Ingebrigtsen |
Subject: |
master 0882e98: Say "Key/Binding" instead of "key/binding" in `C-h b' |
Date: |
Sun, 31 Oct 2021 22:26:36 -0400 (EDT) |
branch: master
commit 0882e98becea0e33333d36fa94fb434a58d7f247
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Say "Key/Binding" instead of "key/binding" in `C-h b'
* lisp/help.el (describe-map-tree): Capitalize the heading.
---
lisp/help.el | 2 +-
test/lisp/help-tests.el | 20 ++++++++++----------
2 files changed, 11 insertions(+), 11 deletions(-)
diff --git a/lisp/help.el b/lisp/help.el
index c4f81401..fcb23fa 100644
--- 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 f9609d8..05ade12 100644
--- 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0882e98: Say "Key/Binding" instead of "key/binding" in `C-h b',
Lars Ingebrigtsen <=