From d54ffa25bd297f9bc57918ca65db714beade7473 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 26 Aug 2021 10:40:35 +0300
Subject: [PATCH] Define a substitute for <menu> on MS-Windows

* lisp/mouse.el (context-menu-mode-map): On w32, use <apps>
in addition to (the mostly non-existent) <menu>.
---
 lisp/mouse.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d137419e02a..8b209638423 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -469,6 +469,8 @@ the same menu with changes such as added new menu items."
     (define-key map [mouse-3] nil)
     (define-key map [down-mouse-3] context-menu-entry)
     (define-key map [menu] #'context-menu-open)
+    (if (featurep 'w32)
+        (define-key map [apps] #'context-menu-open))
     (when (featurep 'ns)
       (define-key map [C-mouse-1] nil)
       (define-key map [C-down-mouse-1] context-menu-entry))
-- 
2.39.2