# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1269365778 0
# Node ID 17fe69fff7fa0087481151a4e26818ae3d3cf79f
# Parent  8bf9e67e06ec6e14816420fc44c009bd6a433629
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 .

diff -r 8bf9e67e06ec -r 17fe69fff7fa lisp/ChangeLog
--- 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):
diff -r 8bf9e67e06ec -r 17fe69fff7fa lisp/x-win-xfree86.el
--- 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)