From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 26 Aug 2021 07:40:35 +0000 (+0300)
Subject: Define a substitute for <menu> on MS-Windows
X-Git-Tag: emacs-28.0.90~1305
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d54ffa25bd297f9bc57918ca65db714beade7473;p=emacs.git

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

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