1 |
;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el |
;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el |
2 |
|
|
3 |
;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc. |
;; Copyright (C) 1988, 1994, 1997, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Olin Shivers <olin.shivers@cs.cmu.edu> |
;; Author: Olin Shivers <olin.shivers@cs.cmu.edu> |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
140 |
(define-key map [switch] |
(define-key map [switch] |
141 |
'("Switch to Scheme" . switch-to-scheme)) |
'("Switch to Scheme" . switch-to-scheme)) |
142 |
(define-key map [com-def-go] |
(define-key map [com-def-go] |
143 |
'("Compile Definitiion & Go" . scheme-compile-definition-and-go)) |
'("Compile Definition & Go" . scheme-compile-definition-and-go)) |
144 |
(define-key map [com-def] |
(define-key map [com-def] |
145 |
'("Compile Definitiion" . scheme-compile-definition)) |
'("Compile Definition" . scheme-compile-definition)) |
146 |
(define-key map [send-def-go] |
(define-key map [send-def-go] |
147 |
'("Evaluate Last Definition & Go" . scheme-send-definition-and-go)) |
'("Evaluate Last Definition & Go" . scheme-send-definition-and-go)) |
148 |
(define-key map [send-def] |
(define-key map [send-def] |
437 |
|
|
438 |
(provide 'cmuscheme) |
(provide 'cmuscheme) |
439 |
|
|
440 |
;;; arch-tag: e8795f4a-c496-45a2-97b4-8e0f2a2c57d2 |
;; arch-tag: e8795f4a-c496-45a2-97b4-8e0f2a2c57d2 |
441 |
;;; cmuscheme.el ends here |
;;; cmuscheme.el ends here |