procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add test for Bug#51527

Browse source 
* test/src/keymap-tests.el (keymap-lookup-key/menu-non-symbol):
New test.
This commit is contained in:
Stefan Kangas 2021-10-31 16:46:06 +01:00
parent d553e603f4
commit 788932d9e4
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/src/keymap-tests.el
View file

@ -146,6 +146,12 @@
(should (eq (lookup-key map [menu-bar γ bar]) 'baz))
(should (eq (lookup-key map [menu-bar Γ Bar]) 'baz))))
(ert-deftest keymap-lookup-key/menu-non-symbol ()
"Test for Bug#51527."
(let ((map (make-keymap)))
(define-key map [menu-bar buffer 1] 'foo)
(should (eq (lookup-key map [menu-bar buffer 1]) 'foo))))
(ert-deftest keymap-lookup-keymap/with-spaces ()
"Backwards compatibility behaviour (Bug#50752)."
(let ((map (make-keymap)))