diff options
| author | Nacho Barrientos <nacho.barrientos@cern.ch> | 2022-12-09 09:45:57 +0100 |
|---|---|---|
| committer | Wilfred Hughes <me@wilfred.me.uk> | 2022-12-09 09:43:25 -0800 |
| commit | 94c25337b2de2f9da60914a7c0c6cca9584c0231 (patch) | |
| tree | 7509bfb7123145b1b408ac53fb940cada37f10dd /test | |
| parent | 4a8d5765c97bdd3103cc921d740b93bf3fc1c162 (diff) | |
Use help-key-binding as face for keystrokes
Diffstat (limited to 'test')
| -rw-r--r-- | test/helpful-unit-test.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el index 664454b..0f5177b 100644 --- a/test/helpful-unit-test.el +++ b/test/helpful-unit-test.el @@ -293,7 +293,16 @@ symbol (not a form)." (get-text-property 0 'button formatted))) ;; If we have quotes around a key sequence, we should not propertize ;; it as the button styling will no longer be visible. - (-let [formatted (helpful--format-docstring "`\\[set-mark-command]'")] + (-let* ((emacs-major-version 28) + (formatted (helpful--format-docstring "`\\[set-mark-command]'"))) + (should + (string-equal formatted "C-SPC")) + (should + (eq + (get-text-property 0 'face formatted) + 'help-key-binding))) + (-let* ((emacs-major-version 27) + (formatted (helpful--format-docstring "`\\[set-mark-command]'"))) (should (string-equal formatted "C-SPC")) (should |