diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-01 03:26:26 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-01 03:26:26 +0100 |
| commit | 0882e98becea0e33333d36fa94fb434a58d7f247 (patch) | |
| tree | a69375e07fb0e328a7317b742de571107727cb48 /test/lisp/help-tests.el | |
| parent | 1200ecba27ca567817ffeecdebf6fb80928c9c2c (diff) | |
| download | emacs-0882e98becea0e33333d36fa94fb434a58d7f247.tar.gz | |
Say "Key/Binding" instead of "key/binding" in `C-h b'
* lisp/help.el (describe-map-tree): Capitalize the heading.
Diffstat (limited to 'test/lisp/help-tests.el')
| -rw-r--r-- | test/lisp/help-tests.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/test/lisp/help-tests.el b/test/lisp/help-tests.el index f9609d8444f..05ade12cf19 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 |