Mercurial > emacs
comparison lisp/xscheme.el @ 21088:ac1673121774
Customized.
| author | Stephen Eglen <stephen@gnu.org> |
|---|---|
| date | Sat, 07 Mar 1998 18:19:38 +0000 |
| parents | 83f275dcd93a |
| children | 77868152457d |
comparison
equal
deleted
inserted
replaced
| 21087:c297faa167f5 | 21088:ac1673121774 |
|---|---|
| 31 | 31 |
| 32 ;;; Code: | 32 ;;; Code: |
| 33 | 33 |
| 34 (require 'scheme) | 34 (require 'scheme) |
| 35 | 35 |
| 36 (defvar scheme-program-name "scheme" | 36 (defgroup xscheme nil |
| 37 "*Program invoked by the `run-scheme' command.") | 37 "Major mode for editing Scheme and interacting with MIT's C-Scheme." |
| 38 | 38 :group 'lisp) |
| 39 (defvar scheme-band-name nil | 39 |
| 40 "*Band loaded by the `run-scheme' command.") | 40 (defcustom scheme-program-name "scheme" |
| 41 | 41 "*Program invoked by the `run-scheme' command." |
| 42 (defvar scheme-program-arguments nil | 42 :type 'string |
| 43 "*Arguments passed to the Scheme program by the `run-scheme' command.") | 43 :group 'xscheme) |
| 44 | 44 |
| 45 (defvar xscheme-allow-pipelined-evaluation t | 45 (defcustom scheme-band-name nil |
| 46 "*Band loaded by the `run-scheme' command." | |
| 47 :type '(choice (const nil) string) | |
| 48 :group 'xscheme) | |
| 49 | |
| 50 (defcustom scheme-program-arguments nil | |
| 51 "*Arguments passed to the Scheme program by the `run-scheme' command." | |
| 52 :type '(choice (const nil) string) | |
| 53 :group 'xscheme) | |
| 54 | |
| 55 (defcustom xscheme-allow-pipelined-evaluation t | |
| 46 "If non-nil, an expression may be transmitted while another is evaluating. | 56 "If non-nil, an expression may be transmitted while another is evaluating. |
| 47 Otherwise, attempting to evaluate an expression before the previous expression | 57 Otherwise, attempting to evaluate an expression before the previous expression |
| 48 has finished evaluating will signal an error.") | 58 has finished evaluating will signal an error." |
| 49 | 59 :type 'boolean |
| 50 (defvar xscheme-startup-message | 60 :group 'xscheme) |
| 61 | |
| 62 (defcustom xscheme-startup-message | |
| 51 "This is the Scheme process buffer. | 63 "This is the Scheme process buffer. |
| 52 Type \\[advertised-xscheme-send-previous-expression] to evaluate the expression before point. | 64 Type \\[advertised-xscheme-send-previous-expression] to evaluate the expression before point. |
| 53 Type \\[xscheme-send-control-g-interrupt] to abort evaluation. | 65 Type \\[xscheme-send-control-g-interrupt] to abort evaluation. |
| 54 Type \\[describe-mode] for more information. | 66 Type \\[describe-mode] for more information. |
| 55 | 67 |
| 56 " | 68 " |
| 57 "String to insert into Scheme process buffer first time it is started. | 69 "String to insert into Scheme process buffer first time it is started. |
| 58 Is processed with `substitute-command-keys' first.") | 70 Is processed with `substitute-command-keys' first." |
| 59 | 71 :type 'string |
| 60 (defvar xscheme-signal-death-message nil | 72 :group 'xscheme) |
| 61 "If non-nil, causes a message to be generated when the Scheme process dies.") | 73 |
| 74 (defcustom xscheme-signal-death-message nil | |
| 75 "If non-nil, causes a message to be generated when the Scheme process dies." | |
| 76 :type 'boolean | |
| 77 :group 'xscheme) | |
| 62 | 78 |
| 63 (defun xscheme-evaluation-commands (keymap) | 79 (defun xscheme-evaluation-commands (keymap) |
| 64 (define-key keymap "\e\C-x" 'xscheme-send-definition) | 80 (define-key keymap "\e\C-x" 'xscheme-send-definition) |
| 65 (define-key keymap "\C-x\C-e" 'advertised-xscheme-send-previous-expression) | 81 (define-key keymap "\C-x\C-e" 'advertised-xscheme-send-previous-expression) |
| 66 (define-key keymap "\eo" 'xscheme-send-buffer) | 82 (define-key keymap "\eo" 'xscheme-send-buffer) |
| 475 "Accumulator for the string being received from the scheme process.") | 491 "Accumulator for the string being received from the scheme process.") |
| 476 | 492 |
| 477 (defvar xscheme-string-receiver nil | 493 (defvar xscheme-string-receiver nil |
| 478 "Procedure to send the string argument from the scheme process.") | 494 "Procedure to send the string argument from the scheme process.") |
| 479 | 495 |
| 480 (defvar xscheme-start-hook nil | 496 (defcustom xscheme-start-hook nil |
| 481 "If non-nil, a procedure to call when the Scheme process is started. | 497 "If non-nil, a procedure to call when the Scheme process is started. |
| 482 When called, the current buffer will be the Scheme process-buffer.") | 498 When called, the current buffer will be the Scheme process-buffer." |
| 499 :type 'hook | |
| 500 :group 'xscheme) | |
| 483 | 501 |
| 484 (defvar xscheme-runlight-string nil) | 502 (defvar xscheme-runlight-string nil) |
| 485 (defvar xscheme-mode-string nil) | 503 (defvar xscheme-mode-string nil) |
| 486 (defvar xscheme-filter-input nil) | 504 (defvar xscheme-filter-input nil) |
| 487 | 505 |