diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-08-26 10:40:35 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-08-26 10:40:35 +0300 |
| commit | d54ffa25bd297f9bc57918ca65db714beade7473 (patch) | |
| tree | a30264ff23f585fc70ce1159088acb38d878fbde /lisp | |
| parent | 4ac29b943bdcc099f578660395b17b430551ff79 (diff) | |
| download | emacs-d54ffa25bd297f9bc57918ca65db714beade7473.tar.gz emacs-d54ffa25bd297f9bc57918ca65db714beade7473.tar.bz2 emacs-d54ffa25bd297f9bc57918ca65db714beade7473.zip | |
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>.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |