]> git.eshelyaron.com Git - emacs.git/commitdiff
* eshell/esh-mode.el (eshell-mode): Fix key bindings.
authorLeo Liu <sdl.web@gmail.com>
Wed, 5 Jun 2013 01:19:33 +0000 (09:19 +0800)
committerLeo Liu <sdl.web@gmail.com>
Wed, 5 Jun 2013 01:19:33 +0000 (09:19 +0800)
lisp/ChangeLog
lisp/eshell/esh-mode.el

index 0910d1fc2b4d8b838750c9249c1b1b35d2b75f57..a4f52b506fb2c40185b696a17dec87b235004f3a 100644 (file)
@@ -1,3 +1,7 @@
+2013-06-05  Leo Liu  <sdl.web@gmail.com>
+
+       * eshell/esh-mode.el (eshell-mode): Fix key bindings.
+
 2013-06-04  Leo Liu  <sdl.web@gmail.com>
 
        * progmodes/compile.el (compile-goto-error): Add optional arg NOMSG.
index ee857cf20f344b8813157e69b10ff07e6f77231e..5346bd16fd2d958de5207c48c093312c89b2170c 100644 (file)
@@ -326,11 +326,8 @@ and the hook `eshell-exit-hook'."
       (if mode-line-elt
          (setcar mode-line-elt 'eshell-command-running-string))))
 
-  (define-key eshell-mode-map [return] 'eshell-send-input)
-  (define-key eshell-mode-map [(control ?m)] 'eshell-send-input)
-  (define-key eshell-mode-map [(control ?j)] 'eshell-send-input)
-  (define-key eshell-mode-map [(meta return)] 'eshell-queue-input)
-  (define-key eshell-mode-map [(meta control ?m)] 'eshell-queue-input)
+  (define-key eshell-mode-map "\r" 'eshell-send-input)
+  (define-key eshell-mode-map "\M-\r" 'eshell-queue-input)
   (define-key eshell-mode-map [(meta control ?l)] 'eshell-show-output)
   (define-key eshell-mode-map [(control ?a)] 'eshell-bol)