26 |
|
|
27 |
;;; Commentary: |
;;; Commentary: |
28 |
|
|
29 |
;; This is a customisation of comint-mode (see comint.el) |
;; This is a customization of comint-mode (see comint.el) |
30 |
;; |
;; |
31 |
;; Written by Olin Shivers (olin.shivers@cs.cmu.edu). With bits and pieces |
;; Written by Olin Shivers (olin.shivers@cs.cmu.edu). With bits and pieces |
32 |
;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al.. |
;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al.. |
106 |
;;;============================================================================ |
;;;============================================================================ |
107 |
|
|
108 |
(defcustom inferior-scheme-mode-hook nil |
(defcustom inferior-scheme-mode-hook nil |
109 |
"*Hook for customising inferior-scheme mode." |
"*Hook for customizing inferior-scheme mode." |
110 |
:type 'hook |
:type 'hook |
111 |
:group 'cmuscheme) |
:group 'cmuscheme) |
112 |
|
|
172 |
|
|
173 |
A Scheme process can be fired up with M-x run-scheme. |
A Scheme process can be fired up with M-x run-scheme. |
174 |
|
|
175 |
Customisation: Entry to this mode runs the hooks on comint-mode-hook and |
Customization: Entry to this mode runs the hooks on comint-mode-hook and |
176 |
inferior-scheme-mode-hook (in that order). |
inferior-scheme-mode-hook (in that order). |
177 |
|
|
178 |
You can send text to the inferior Scheme process from other buffers containing |
You can send text to the inferior Scheme process from other buffers containing |
201 |
Paragraphs are separated only by blank lines. Semicolons start comments. |
Paragraphs are separated only by blank lines. Semicolons start comments. |
202 |
If you accidentally suspend your process, use \\[comint-continue-subjob] |
If you accidentally suspend your process, use \\[comint-continue-subjob] |
203 |
to continue it." |
to continue it." |
204 |
;; Customise in inferior-scheme-mode-hook |
;; Customize in inferior-scheme-mode-hook |
205 |
(setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,... |
(setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,... |
206 |
(scheme-mode-variables) |
(scheme-mode-variables) |
207 |
(setq mode-line-process '(":%s")) |
(setq mode-line-process '(":%s")) |
432 |
(defvar scheme-prev-l/c-dir/file nil |
(defvar scheme-prev-l/c-dir/file nil |
433 |
"Caches the last (directory . file) pair. |
"Caches the last (directory . file) pair. |
434 |
Caches the last pair used in the last `scheme-load-file' or |
Caches the last pair used in the last `scheme-load-file' or |
435 |
`scheme-compile-file' command. Used for determining the default in the |
`scheme-compile-file' command. Used for determining the default |
436 |
next one.") |
in the next one.") |
437 |
|
|
438 |
(defun scheme-load-file (file-name) |
(defun scheme-load-file (file-name) |
439 |
"Load a Scheme file FILE-NAME into the inferior Scheme process." |
"Load a Scheme file FILE-NAME into the inferior Scheme process." |
525 |
(save-window-excursion |
(save-window-excursion |
526 |
(run-scheme (read-string "Run Scheme: " scheme-program-name)))) |
(run-scheme (read-string "Run Scheme: " scheme-program-name)))) |
527 |
|
|
528 |
;;; Do the user's customisation... |
;;; Do the user's customization... |
529 |
|
|
530 |
(defcustom cmuscheme-load-hook nil |
(defcustom cmuscheme-load-hook nil |
531 |
"This hook is run when cmuscheme is loaded in. |
"This hook is run when cmuscheme is loaded in. |