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 "C-x ")) (should (equal (key-description [M-H-right] [?\C-x]) "C-x M-H-")) + ;; Treat latin-1 correctly vs meta. (Bug#59305) + (should (equal (key-description "olá") + "o l á")) + (should (equal (key-description (string ?o ?l ?á)) + "o l á")) + (should (equal (key-description (unibyte-string ?o ?l ?á)) + "o l M-a")) (should (equal (single-key-description 'home) "")) (should (equal (single-key-description 'home t)