(xscheme-evaluation-commands scheme-mode-map)
(xscheme-interrupt-commands scheme-mode-map)
\f
-;;;###autoload
(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."
(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)