From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 31 Oct 2021 15:46:06 +0000 (+0100)
Subject: Add test for Bug#51527
X-Git-Tag: emacs-29.0.90~3671^2~333
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=788932d9e4c015d1f3b1384a310f6001223d6e9b;p=emacs.git

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 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)))