diff options
| author | Robert Pluim | 2024-05-14 17:41:57 +0200 |
|---|---|---|
| committer | Robert Pluim | 2024-05-16 14:29:10 +0200 |
| commit | cdf49336cd06c433d2aa7795672aebe413c92f54 (patch) | |
| tree | d5c87a1eb9b29d7a273c46f3e4a93e0655cb6d2e | |
| parent | c22b91fd9ca7625a7a4f2d817552f19cc56ee310 (diff) | |
| download | emacs-cdf49336cd06c433d2aa7795672aebe413c92f54.tar.gz emacs-cdf49336cd06c433d2aa7795672aebe413c92f54.zip | |
Add multi/unibyte string tests for key-description
* test/src/keymap-tests.el (keymap--key-description): Add multi/unibyte
tests.
This is to check the fix for Bug#59305.
| -rw-r--r-- | test/src/keymap-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el index 04b897045db..e968a19eadf 100644 --- a/test/src/keymap-tests.el +++ b/test/src/keymap-tests.el | |||
| @@ -357,6 +357,13 @@ g .. h foo | |||
| 357 | "C-x <right>")) | 357 | "C-x <right>")) |
| 358 | (should (equal (key-description [M-H-right] [?\C-x]) | 358 | (should (equal (key-description [M-H-right] [?\C-x]) |
| 359 | "C-x M-H-<right>")) | 359 | "C-x M-H-<right>")) |
| 360 | ;; Treat latin-1 correctly vs meta. (Bug#59305) | ||
| 361 | (should (equal (key-description "olá") | ||
| 362 | "o l á")) | ||
| 363 | (should (equal (key-description (string ?o ?l ?á)) | ||
| 364 | "o l á")) | ||
| 365 | (should (equal (key-description (unibyte-string ?o ?l ?á)) | ||
| 366 | "o l M-a")) | ||
| 360 | (should (equal (single-key-description 'home) | 367 | (should (equal (single-key-description 'home) |
| 361 | "<home>")) | 368 | "<home>")) |
| 362 | (should (equal (single-key-description 'home t) | 369 | (should (equal (single-key-description 'home t) |