diff options
Diffstat (limited to 'test/src')
| -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) |