(x-alternatives-map): Add S-tab mapping.

2 files changed, 5 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0616e34f96e..b4999f14f54 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-19  Jason Rumney  <jasonr@gnu.org>
+
+        * w32-fns.el (x-alternatives-map): Add S-tab mapping.
+
 2008-03-19  Reiner Steib  <Reiner.Steib@gmx.de>
 
         * net/tls.el (open-tls-stream): Reindent.
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index e08b03d046e..cfedd008932 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -25,13 +25,6 @@
 
 ;;; Commentary:
 
-;; (August 12, 1993)
-;; Created.
-
-;; (November 21, 1994)
-;; [C-M-backspace] defined.
-;; mode-line-format defined to show buffer file type.
-;; audio bell initialized.
 
 ;;; Code:
 (require 'w32-vars)
@@ -59,6 +52,7 @@
     (define-key map [M-escape] [?\M-\e])
     (define-key map [iso-lefttab] [backtab])
     (define-key map [S-iso-lefttab] [backtab])
+    (define-key map [S-tab] [backtab])
     map)
   "Keymap of possible alternative meanings for some keys.")