From 8eef8eb7ae14f41806c068cff4a7a40c9684bfe5 Mon Sep 17 00:00:00 2001
From: "Timo H. Geusch" <timo-git@unix-consult.com>
Date: Sun, 7 May 2017 20:24:32 -0700
Subject: [PATCH] Added M-up and M-down as navigation keys for previous/next
 command

Added key bindings for underlying comint mode to support scrolling through the command history
---
 inf-mongo.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/inf-mongo.el b/inf-mongo.el
index 838b18e..f64caa9 100644
--- a/inf-mongo.el
+++ b/inf-mongo.el
@@ -229,7 +229,9 @@ Most of this is borrowed from python.el"
 ;;;###autoload
 (defvar inf-mongo-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map "\C-x\C-e" 'mongo-send-last-sexp)
+    (define-key map (kbd "C-x C-e")  'mongo-send-last-sexp)
+    (define-key map (kbd "<M-up>")   'comint-previous-input)
+    (define-key map (kbd "<M-down>") 'comint-next-input)
     map))
 
 ;;;###autoload