mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Define a substitute for <menu> on MS-Windows

Browse source 
* lisp/mouse.el (context-menu-mode-map): On w32, use <apps>
in addition to (the mostly non-existent) <menu>.
This commit is contained in:
Eli Zaretskii 2021-08-26 10:40:35 +03:00
parent 4ac29b943b
commit d54ffa25bd
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mouse.el
View file

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