From d58a42257b31193b9e964194ae551c1d37cef178 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 4 Sep 2009 15:19:10 +0000 Subject: Define some keys. --- lib/scomint.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/scomint.el b/lib/scomint.el index 3a00d13d..6462872f 100644 --- a/lib/scomint.el +++ b/lib/scomint.el @@ -32,6 +32,11 @@ SComint buffers are truncated from the top to be no greater than this number, if non-nil.") +(defvar scomint-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\C-m" 'scomint-send-input) + (define-key map "\C-c\C-c" 'interrupt-process) + map)) (defvar scomint-last-input-start nil) (defvar scomint-last-input-end nil) @@ -52,7 +57,7 @@ Interpreter name is same as buffer name, sans the asterisks. Return at end of buffer sends line as input. Return not at end copies rest of line to end and sends it. -\\{comint-mode-map} +\\{scomint-mode-map} Entry to this mode runs the hooks on `scomint-mode-hook'." (setq mode-line-process '(":%s")) -- cgit v1.2.3