Mercurial > emacs
comparison lisp/cus-start.el @ 110930:b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
* lisp/cus-start.el (all): ns-right-alternate-modifier is new.
* lisp/term/ns-win.el (ns-right-alternate-modifier): New defvar.
(ns-right-option-modifier): New alias for ns-right-alternate-modifier.
(mac-right-option-modifier): New alias for ns-right-option-modifier.
* src/nsterm.m (Qleft): Declare.
(ns_right_alternate_modifier): New variable
(NSRightAlternateKeyMask): New define.
(EV_MODIFIERS): Parse NSRightAlternateKeyMask if
ns_right_alternate_modifier isn't Qleft.
(keyDown): If ns_right_alternate_modifier isn't Qleft, use it
as emacs modifier for NSRightAlternateKeyMask.
(syms_of_nsterm): DEFVAR_LISP ns-right-alternate-modifier.
author | Jan D. <jan.h.d@swipnet.se> |
---|---|
date | Mon, 11 Oct 2010 21:18:08 +0200 |
parents | 1d1d5d9bd884 |
children | 2316b868d5be 376148b31b5e |
comparison
equal
deleted
inserted
replaced
110929:7881980f59a5 | 110930:b6cf32bb07a1 |
---|---|
264 ns | 264 ns |
265 (choice (const :tag "No modifier (work as alternate/option)" none) | 265 (choice (const :tag "No modifier (work as alternate/option)" none) |
266 (const control) (const meta) | 266 (const control) (const meta) |
267 (const alt) (const hyper) | 267 (const alt) (const hyper) |
268 (const super)) "23.1") | 268 (const super)) "23.1") |
269 (ns-right-alternate-modifier | |
270 ns | |
271 (choice (const :tag "No modifier (work as alternate/option)" none) | |
272 (const :tag "Use the value of ns-alternate-modifier" | |
273 left) | |
274 (const control) (const meta) | |
275 (const alt) (const hyper) | |
276 (const super)) "23.3") | |
269 (ns-function-modifier | 277 (ns-function-modifier |
270 ns | 278 ns |
271 (choice (const :tag "No modifier (work as function)" none) | 279 (choice (const :tag "No modifier (work as function)" none) |
272 (const control) (const meta) | 280 (const control) (const meta) |
273 (const alt) (const hyper) | 281 (const alt) (const hyper) |