make C-up cycle through matching input

diff --git a/mathematica.el b/mathematica.el
index 02a9ca8..2fab18b 100644 (file)
--- a/mathematica.el
+++ b/mathematica.el
@@ -452,6 +452,7 @@ subjob if any.
   (define-key mathematica-comint-mode-map [pause] 'comint-interrupt-subjob)
   (define-key mathematica-comint-mode-map [C-pause] 'comint-quit-subjob)
   (define-key mathematica-comint-mode-map [tab] 'dabbrev-expand)
+  (define-key mathematica-comint-mode-map [C-up] 'comint-previous-matching-input-from-input)
   (use-local-map mathematica-comint-mode-map)
 
   ; don't split the frame unless it is already split.