;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
-;; Copyright (C) 1988, 1994, 1997, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1994, 1997, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
;; Maintainer: FSF
;;; Commentary:
-;; This is a customisation of comint-mode (see comint.el)
+;; This is a customization of comint-mode (see comint.el)
;;
;; Written by Olin Shivers (olin.shivers@cs.cmu.edu). With bits and pieces
;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al..
;;;============================================================================
(defcustom inferior-scheme-mode-hook nil
- "*Hook for customising inferior-scheme mode."
+ "*Hook for customizing inferior-scheme mode."
:type 'hook
:group 'cmuscheme)
A Scheme process can be fired up with M-x run-scheme.
-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
inferior-scheme-mode-hook (in that order).
You can send text to the inferior Scheme process from other buffers containing
Paragraphs are separated only by blank lines. Semicolons start comments.
If you accidentally suspend your process, use \\[comint-continue-subjob]
to continue it."
- ;; Customise in inferior-scheme-mode-hook
+ ;; Customize in inferior-scheme-mode-hook
(setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...
(scheme-mode-variables)
(setq mode-line-process '(":%s"))
(start-file (concat "~/" name)))
(if (file-exists-p start-file)
start-file
- (let ((start-file (concat user-emacs-directory name)))
+ (let ((start-file (concat "~/.emacs.d/" name)))
(and (file-exists-p start-file) start-file)))))
(defun scheme-send-region (start end)
(when (= (length proc) 0)
(error "Invalid procedure name"))
(comint-send-string (scheme-proc)
- (format
+ (format
(if untrace scheme-untrace-command scheme-trace-command)
proc))
(comint-send-string (scheme-proc) "\n"))
(if current-form
(progn
(comint-send-string (scheme-proc)
- (format
+ (format
scheme-macro-expand-command
current-form))
- (comint-send-string (scheme-proc) "\n"))
+ (comint-send-string (scheme-proc) "\n"))
(error "Not at a form"))))
(defun scheme-form-at-point ()
(defvar scheme-prev-l/c-dir/file nil
"Caches the last (directory . file) pair.
Caches the last pair used in the last `scheme-load-file' or
-`scheme-compile-file' command. Used for determining the default in the
-next one.")
+`scheme-compile-file' command. Used for determining the default
+in the next one.")
(defun scheme-load-file (file-name)
"Load a Scheme file FILE-NAME into the inferior Scheme process."
"Return the current Scheme process, starting one if necessary.
See variable `scheme-buffer'."
(unless (and scheme-buffer
- (get-buffer scheme-buffer)
+ (get-buffer scheme-buffer)
(comint-check-proc scheme-buffer))
(scheme-interactively-start-process))
(or (scheme-get-process)
(save-window-excursion
(run-scheme (read-string "Run Scheme: " scheme-program-name))))
-;;; Do the user's customisation...
+;;; Do the user's customization...
(defcustom cmuscheme-load-hook nil
"This hook is run when cmuscheme is loaded in.