From 788932d9e4c015d1f3b1384a310f6001223d6e9b Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 31 Oct 2021 16:46:06 +0100 Subject: [PATCH] Add test for Bug#51527 * test/src/keymap-tests.el (keymap-lookup-key/menu-non-symbol): New test. --- test/src/keymap-tests.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el index fc4dce01827..d3cb1a6a550 100644 --- a/test/src/keymap-tests.el +++ b/test/src/keymap-tests.el @@ -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))) -- 2.39.5