Mercurial > hg > xemacs-beta
comparison lisp/x-win-xfree86.el @ 5165:17fe69fff7fa
Make iso-left-tab equivalent to shift-tab, XFree86
2010-03-23 Aidan Kehoe <kehoea@parhasard.net>
* x-win-xfree86.el (x-win-init-xfree86):
If iso-left-tab (something ISO-specified and portable in theory;
in practice only seen with XFree86 and derived non-US layouts)
exists on the keyboard layout, make it equivalent to shift-tab,
addressing the issue FKtPp sees in
http://mid.gmane.org/1269358206.4873.1.camel@fktpp-laptop .
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 23 Mar 2010 17:36:18 +0000 |
| parents | e3ef34f57070 |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5164:8bf9e67e06ec | 5165:17fe69fff7fa |
|---|---|
| 75 nil nil ?7 ?8 ?9 ?- ?4 ?5 ?6 ?+ ?1 ?2 ?3 ?0 ?\. nil nil | 75 nil nil ?7 ?8 ?9 ?- ?4 ?5 ?6 ?+ ?1 ?2 ?3 ?0 ?\. nil nil |
| 76 [?< ?>] nil nil nil nil nil nil nil nil nil nil nil nil | 76 [?< ?>] nil nil nil nil nil nil nil nil nil nil nil nil |
| 77 nil nil nil nil nil ?/ nil nil nil nil nil nil nil nil | 77 nil nil nil nil nil ?/ nil nil nil nil nil nil nil nil |
| 78 nil nil nil nil nil ?=]) | 78 nil nil nil nil nil ?=]) |
| 79 | 79 |
| 80 (when (x-keysym-on-keyboard-p 'iso-left-tab device) | |
| 81 (define-key function-key-map 'iso-left-tab [(shift tab)])) | |
| 82 | |
| 80 (loop for (key sane-key) in | 83 (loop for (key sane-key) in |
| 81 '((f13 f1) | 84 '((f13 f1) |
| 82 (f14 f2) | 85 (f14 f2) |
| 83 (f15 f3) | 86 (f15 f3) |
| 84 (f16 f4) | 87 (f16 f4) |