diff options
| author | Leo Liu | 2013-06-05 09:19:33 +0800 |
|---|---|---|
| committer | Leo Liu | 2013-06-05 09:19:33 +0800 |
| commit | 2587b005f0f11913c2158fe8c81b18ebfc0beca8 (patch) | |
| tree | b6e7f23f7dc812ba4d54b7139c7d9228baaa5803 | |
| parent | f1da3c8807ef0a03eb684b546341be430f99a7bc (diff) | |
| download | emacs-2587b005f0f11913c2158fe8c81b18ebfc0beca8.tar.gz emacs-2587b005f0f11913c2158fe8c81b18ebfc0beca8.zip | |
* eshell/esh-mode.el (eshell-mode): Fix key bindings.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/eshell/esh-mode.el | 7 |
2 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0910d1fc2b4..a4f52b506fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2013-06-05 Leo Liu <sdl.web@gmail.com> | ||
| 2 | |||
| 3 | * eshell/esh-mode.el (eshell-mode): Fix key bindings. | ||
| 4 | |||
| 1 | 2013-06-04 Leo Liu <sdl.web@gmail.com> | 5 | 2013-06-04 Leo Liu <sdl.web@gmail.com> |
| 2 | 6 | ||
| 3 | * progmodes/compile.el (compile-goto-error): Add optional arg NOMSG. | 7 | * progmodes/compile.el (compile-goto-error): Add optional arg NOMSG. |
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index ee857cf20f3..5346bd16fd2 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el | |||
| @@ -326,11 +326,8 @@ and the hook `eshell-exit-hook'." | |||
| 326 | (if mode-line-elt | 326 | (if mode-line-elt |
| 327 | (setcar mode-line-elt 'eshell-command-running-string)))) | 327 | (setcar mode-line-elt 'eshell-command-running-string)))) |
| 328 | 328 | ||
| 329 | (define-key eshell-mode-map [return] 'eshell-send-input) | 329 | (define-key eshell-mode-map "\r" 'eshell-send-input) |
| 330 | (define-key eshell-mode-map [(control ?m)] 'eshell-send-input) | 330 | (define-key eshell-mode-map "\M-\r" 'eshell-queue-input) |
| 331 | (define-key eshell-mode-map [(control ?j)] 'eshell-send-input) | ||
| 332 | (define-key eshell-mode-map [(meta return)] 'eshell-queue-input) | ||
| 333 | (define-key eshell-mode-map [(meta control ?m)] 'eshell-queue-input) | ||
| 334 | (define-key eshell-mode-map [(meta control ?l)] 'eshell-show-output) | 331 | (define-key eshell-mode-map [(meta control ?l)] 'eshell-show-output) |
| 335 | (define-key eshell-mode-map [(control ?a)] 'eshell-bol) | 332 | (define-key eshell-mode-map [(control ?a)] 'eshell-bol) |
| 336 | 333 | ||