changeset 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 8bf9e67e06ec
children b50624d3ae55
files lisp/ChangeLog lisp/x-win-xfree86.el
diffstat 2 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Mar 22 19:04:51 2010 -0400
+++ b/lisp/ChangeLog	Tue Mar 23 17:36:18 2010 +0000
@@ -1,3 +1,12 @@
+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 .
+
 2010-03-21  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* cl-extra.el (cl-prettyprint):
--- a/lisp/x-win-xfree86.el	Mon Mar 22 19:04:51 2010 -0400
+++ b/lisp/x-win-xfree86.el	Tue Mar 23 17:36:18 2010 +0000
@@ -77,6 +77,9 @@
 	     nil nil nil nil nil ?/ nil nil nil nil nil nil nil nil 
 	     nil nil nil nil nil ?=])
 
+  (when (x-keysym-on-keyboard-p 'iso-left-tab device) 
+    (define-key function-key-map 'iso-left-tab [(shift tab)]))
+
   (loop for (key sane-key) in
     '((f13 f1)
       (f14 f2)