(comint-mode-map): Treat C-up, C-down like M-p, M-n.

diff --git a/lisp/comint.el b/lisp/comint.el
index a3666ec92d28258ca75f5cd5423fb8a78dbc6733..c2e090f0fca3e73dc6b4d8d7a1b890ae1de00aeb 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -394,6 +394,8 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
   (setq comint-mode-map (make-sparse-keymap))
   (define-key comint-mode-map "\ep" 'comint-previous-input)
   (define-key comint-mode-map "\en" 'comint-next-input)
+  (define-key comint-mode-map [C-up] 'comint-previous-input)
+  (define-key comint-mode-map [C-down] 'comint-next-input)
   (define-key comint-mode-map "\er" 'comint-previous-matching-input)
   (define-key comint-mode-map "\es" 'comint-next-matching-input)
   (define-key comint-mode-map [?\A-\M-r] 'comint-previous-matching-input-from-input)