diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2009-09-04 15:19:10 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2009-09-04 15:19:10 +0000 |
commit | d58a42257b31193b9e964194ae551c1d37cef178 (patch) | |
tree | 54cbae67ad27f4b573c93e8ded077ddd8f37b45f | |
parent | 8ad6e2ea063cba71b91a7bfadf738987e6842934 (diff) |
Define some keys.
-rw-r--r-- | lib/scomint.el | 7 |
1 files changed, 6 insertions, 1 deletions
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")) |