-;; Run Scheme under Emacs
+;;; xscheme.el --- run Scheme under Emacs
+
;; Copyright (C) 1986, 1987, 1989, 1990 Free Software Foundation, Inc.
+;; Maintainer: FSF
+;; Keywords: languages, lisp
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
-;;; Requires C-Scheme release 5 or later
-;;; Changes to Control-G handler require runtime version 13.85 or later
+;; A major mode for editing Scheme and interacting with MIT's C-Scheme.
+;;
+;; Requires C-Scheme release 5 or later
+;; Changes to Control-G handler require runtime version 13.85 or later
-;;; $Header: xscheme.el,v 1.26 90/09/11 01:51:20 GMT cph Exp $
+;;; Code:
(require 'scheme)
\f
-(defvar scheme-program-name "scheme"
- "*Program invoked by the `run-scheme' command.")
-
-(defvar scheme-band-name nil
- "*Band loaded by the `run-scheme' command.")
-
-(defvar scheme-program-arguments nil
- "*Arguments passed to the Scheme program by the `run-scheme' command.")
-
-(defvar xscheme-allow-pipelined-evaluation t
+(defgroup xscheme nil
+ "Major mode for editing Scheme and interacting with MIT's C-Scheme."
+ :group 'lisp)
+
+(defcustom scheme-program-name "scheme"
+ "*Program invoked by the `run-scheme' command."
+ :type 'string
+ :group 'xscheme)
+
+(defcustom scheme-band-name nil
+ "*Band loaded by the `run-scheme' command."
+ :type '(choice (const nil) string)
+ :group 'xscheme)
+
+(defcustom scheme-program-arguments nil
+ "*Arguments passed to the Scheme program by the `run-scheme' command."
+ :type '(choice (const nil) string)
+ :group 'xscheme)
+
+(defcustom xscheme-allow-pipelined-evaluation t
"If non-nil, an expression may be transmitted while another is evaluating.
Otherwise, attempting to evaluate an expression before the previous expression
-has finished evaluating will signal an error.")
+has finished evaluating will signal an error."
+ :type 'boolean
+ :group 'xscheme)
-(defvar xscheme-startup-message
+(defcustom xscheme-startup-message
"This is the Scheme process buffer.
Type \\[advertised-xscheme-send-previous-expression] to evaluate the expression before point.
Type \\[xscheme-send-control-g-interrupt] to abort evaluation.
"
"String to insert into Scheme process buffer first time it is started.
-Is processed with `substitute-command-keys' first.")
+Is processed with `substitute-command-keys' first."
+ :type 'string
+ :group 'xscheme)
-(defvar xscheme-signal-death-message nil
- "If non-nil, causes a message to be generated when the Scheme process dies.")
+(defcustom xscheme-signal-death-message nil
+ "If non-nil, causes a message to be generated when the Scheme process dies."
+ :type 'boolean
+ :group 'xscheme)
(defun xscheme-evaluation-commands (keymap)
(define-key keymap "\e\C-x" 'xscheme-send-definition)
(xscheme-interrupt-commands scheme-mode-map)
\f
(defun run-scheme (command-line)
- "Run an inferior Scheme process.
+ "Run MIT Scheme in an inferior process.
Output goes to the buffer `*scheme*'.
With argument, asks for a command line."
(interactive
(read-string "Run Scheme: " default)
default))))
(setq xscheme-process-command-line command-line)
- (switch-to-buffer (xscheme-start-process command-line)))
+ (pop-to-buffer (xscheme-start-process command-line)))
(defun reset-scheme ()
"Reset the Scheme process."
(defconst xscheme-control-g-synchronization-p t
"If non-nil, insert markers in the scheme input stream to indicate when
-control-g interrupts were signalled. Do not allow more control-g's to be
-signalled until the scheme process acknowledges receipt.")
+control-g interrupts were signaled. Do not allow more control-g's to be
+signaled until the scheme process acknowledges receipt.")
(defvar xscheme-control-g-disabled-p nil
"This variable, if non-nil, indicates that a control-g is being processed
(defvar xscheme-string-receiver nil
"Procedure to send the string argument from the scheme process.")
-(defvar xscheme-start-hook nil
+(defcustom xscheme-start-hook nil
"If non-nil, a procedure to call when the Scheme process is started.
-When called, the current buffer will be the Scheme process-buffer.")
+When called, the current buffer will be the Scheme process-buffer."
+ :type 'hook
+ :group 'xscheme)
(defvar xscheme-runlight-string nil)
(defvar xscheme-mode-string nil)
(defun xscheme-set-runlight (runlight)
(setq xscheme-runlight-string runlight)
- (xscheme-modeline-redisplay))
-
-(defun xscheme-modeline-redisplay ()
- (save-excursion (set-buffer (other-buffer)))
- (set-buffer-modified-p (buffer-modified-p))
- (sit-for 0))
+ (force-mode-line-update t))
\f
;;;; Process Filter Operations
(setq xscheme-prompt string)
(xscheme-guarantee-newlines 2)
(setq xscheme-mode-string (xscheme-coerce-prompt string))
- (xscheme-modeline-redisplay))
+ (force-mode-line-update t))
(defun xscheme-output-goto ()
(xscheme-goto-output-point)
(let ((state (parse-partial-sexp start (nth 2 state))))
(if (nth 2 state) 'many 'one)))))
(set-syntax-table old-syntax-table)))))
+
+(provide 'xscheme)
+
+;;; xscheme.el ends here