diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-26 06:47:15 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-26 17:05:39 +0100 |
| commit | 40dcf9c2abd62425e599f30548dc53fa58fe2202 (patch) | |
| tree | 66cf9b740b06d5c9317d35b2bbc34e23692f77be /test/lisp/emacs-lisp | |
| parent | 1e7786437d3d471bffe48d91a067556f9223e9cf (diff) | |
| download | emacs-40dcf9c2abd62425e599f30548dc53fa58fe2202.tar.gz emacs-40dcf9c2abd62425e599f30548dc53fa58fe2202.tar.bz2 emacs-40dcf9c2abd62425e599f30548dc53fa58fe2202.zip | |
read-multiple-choice: Display "SPC" instead of " "
* lisp/emacs-lisp/rmc.el (rmc--add-key-description): Improve display
of the keys TAB, RET, SPC, DEL, and ESC. This fixes a bug where " "
was highlighted in the description in a confusing way.
* test/lisp/emacs-lisp/rmc-tests.el
(test-rmc--add-key-description)
(test-rmc--add-key-description/with-attributes): Update tests for the
above change.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/rmc-tests.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el index a97254c46dc..5a79c505ae2 100644 --- a/test/lisp/emacs-lisp/rmc-tests.el +++ b/test/lisp/emacs-lisp/rmc-tests.el @@ -34,7 +34,9 @@ (should (equal (rmc--add-key-description '(?y "yes")) '(?y . "yes"))) (should (equal (rmc--add-key-description '(?n "foo")) - '(?n . "[n] foo"))))) + '(?n . "[n] foo"))) + (should (equal (rmc--add-key-description '(?\s "foo bar")) + `(?\s . "[SPC] foo bar"))))) (ert-deftest test-rmc--add-key-description/with-attributes () (cl-letf (((symbol-function 'display-supports-face-attributes-p) (lambda (_ _) t))) @@ -43,7 +45,10 @@ `(?y . ,(concat (propertize "y" 'face 'read-multiple-choice-face) "es")))) (should (equal-including-properties (rmc--add-key-description '(?n "foo")) - `(?n . ,(concat "[" (propertize "n" 'face 'read-multiple-choice-face) "] foo")))))) + `(?n . ,(concat "[" (propertize "n" 'face 'read-multiple-choice-face) "] foo")))) + (should (equal-including-properties + (rmc--add-key-description '(?\s "foo bar")) + `(?\s . ,(concat "[" (propertize "SPC" 'face 'read-multiple-choice-face) "] foo bar")))))) (ert-deftest test-rmc--add-key-description/non-graphical-display () (cl-letf (((symbol-function 'display-supports-face-attributes-p) (lambda (_ _) nil))) |