* lisp/eshell/em-cmpl.el (eshell-cmpl-initialize): Fix shift-tab key.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92d12fbc1ff2036b6f4f951876e27002a3299e7c..a6e04ca25dbb926736d943b5238c3d82ef90ac69 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-05  Leo Liu  <sdl.web@gmail.com>
+
+       * eshell/em-cmpl.el (eshell-cmpl-initialize): Fix shift-tab key.
+
 2012-03-05  Chong Yidong  <cyd@gnu.org>
 
        * simple.el (count-words): If called from Lisp, return the word

diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el
index f997d47f665febd622e353362d4a7f66c65ffb7a..a5e1b6194c728e286d217335ee2923f254be1c41 100644 (file)
--- a/lisp/eshell/em-cmpl.el
+++ b/lisp/eshell/em-cmpl.el
@@ -299,8 +299,7 @@ to writing a completion function."
   ;; jww (1999-10-19): Will this work on anything but X?
   (if (featurep 'xemacs)
       (define-key eshell-mode-map [iso-left-tab] 'pcomplete-reverse)
-    (define-key eshell-mode-map [(shift iso-lefttab)] 'pcomplete-reverse)
-    (define-key eshell-mode-map [(shift control ?i)] 'pcomplete-reverse))
+    (define-key eshell-mode-map [backtab] 'pcomplete-reverse))
   (define-key eshell-mode-map [(meta ??)] 'pcomplete-list))
 
 (defun eshell-completion-command-name ()