Add test for Bug#51527

* test/src/keymap-tests.el (keymap-lookup-key/menu-non-symbol):
New test.

diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el
index fc4dce0182735c824d37ca2d8e6691d3b065613f..d3cb1a6a5508553dce14fc8225dd326038065f6e 100644 (file)
--- 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)))