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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0616e34f96efbed7c4b4b12698a1baac08e579dd..b4999f14f5462a168fbb1f8b89ab1aef6a4bc81c 100644 (file)
--- 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 e08b03d046e059cdcd77249cfaef55f059798135..cfedd0089324c5571e2ff7b124eaa05193e44c7c 100644 (file)
--- 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.")