Mercurial > emacs
comparison lisp/cus-start.el @ 111662:1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
* lisp/cus-start.el (all): Add ns-right-control-modifier and
ns-right-command-modifier.
* lisp/term/ns-win.el (ns-right-control-modifier)
(ns-right-command-modifier): Defvar them.
* src/nsterm.m (ns_right_command_modifier, ns_right_control_modifier):
Define (Bug#7458).
(NSRightCommandKeyMask, NSRightControlKeyMask): Define (Bug#7458).
(EV_MODIFIERS): Check for NSRightCommandKeyMask and
NSRightControlKeyMask also (Bug#7458).
(keyDown): Ditto (Bug#7458).
(syms_of_nsterm): Defvar ns-right-command-modifier and
ns-right-control-modifier (Bug#7458).
| author | Jan D. <jan.h.d@swipnet.se> |
|---|---|
| date | Sun, 21 Nov 2010 14:09:34 +0100 |
| parents | c5f89cc4d275 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 111661:c07eb42b870c | 111662:1303259207a9 |
|---|---|
| 318 ns | 318 ns |
| 319 (choice (const :tag "No modifier" nil) | 319 (choice (const :tag "No modifier" nil) |
| 320 (const control) (const meta) | 320 (const control) (const meta) |
| 321 (const alt) (const hyper) | 321 (const alt) (const hyper) |
| 322 (const super)) "23.1") | 322 (const super)) "23.1") |
| 323 (ns-right-control-modifier | |
| 324 ns | |
| 325 (choice (const :tag "No modifier (work as control)" none) | |
| 326 (const :tag "Use the value of ns-control-modifier" | |
| 327 left) | |
| 328 (const control) (const meta) | |
| 329 (const alt) (const hyper) | |
| 330 (const super)) "24.0") | |
| 323 (ns-command-modifier | 331 (ns-command-modifier |
| 324 ns | 332 ns |
| 325 (choice (const :tag "No modifier" nil) | 333 (choice (const :tag "No modifier" nil) |
| 326 (const control) (const meta) | 334 (const control) (const meta) |
| 327 (const alt) (const hyper) | 335 (const alt) (const hyper) |
| 328 (const super)) "23.1") | 336 (const super)) "23.1") |
| 337 (ns-right-command-modifier | |
| 338 ns | |
| 339 (choice (const :tag "No modifier (work as command)" none) | |
| 340 (const :tag "Use the value of ns-command-modifier" | |
| 341 left) | |
| 342 (const control) (const meta) | |
| 343 (const alt) (const hyper) | |
| 344 (const super)) "24.0") | |
| 329 (ns-alternate-modifier | 345 (ns-alternate-modifier |
| 330 ns | 346 ns |
| 331 (choice (const :tag "No modifier (work as alternate/option)" none) | 347 (choice (const :tag "No modifier (work as alternate/option)" none) |
| 332 (const control) (const meta) | 348 (const control) (const meta) |
| 333 (const alt) (const hyper) | 349 (const alt) (const hyper) |