-;;; cmuscheme.el -- Scheme process in a buffer. Adapted from tea.el.
+;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el.
+
+
+;; Copyright (C) 1988 Free Software Foundation, Inc.
;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
-;; Last-Modified: 16 Mar 1992
+;; Keywords: processes, 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 2, or (at your option)
+;; any later version.
-;;; Copyright Olin Shivers (1988)
-;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
-;;; notice appearing here to the effect that you may use this code any
-;;; way you like, as long as you don't charge money for it, remove this
-;;; notice, or hold me liable for its results.
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; 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.
;;; Commentary:
(define-key scheme-mode-map "\C-c\C-l" 'scheme-load-file)
(define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-file) ;k for "kompile"
+(defvar scheme-buffer)
+
(defun inferior-scheme-mode ()
"Major mode for interacting with an inferior Scheme process.
(setq comint-get-old-input (function scheme-get-old-input))
(run-hooks 'inferior-scheme-mode-hook))
-(defun scheme-input-filter (str)
- "Don't save anything matching inferior-scheme-filter-regexp"
- (not (string-match inferior-scheme-filter-regexp str)))
-
(defvar inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"
"*Input matching this regexp are not saved on the history list.
Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.")
+(defun scheme-input-filter (str)
+ "Don't save anything matching inferior-scheme-filter-regexp"
+ (not (string-match inferior-scheme-filter-regexp str)))
+
(defun scheme-get-old-input ()
"Snarf the sexp ending at point"
(save-excursion
"*Template for issuing commands to compile arbitrary Scheme expressions.")
(defun scheme-compile-region (start end)
- "Compile the current region in the inferior Scheme process
+ "Compile the current region in the inferior Scheme process.
\(A BEGIN is wrapped around the region: (BEGIN <region>))"
(interactive "r")
(comint-send-string (scheme-proc) (format scheme-compile-exp-command
(goto-char (point-max)))))
(defun scheme-send-region-and-go (start end)
- "Send the current region to the inferior Scheme process,
-and switch to the process buffer."
+ "Send the current region to the inferior Scheme process.
+Then switch to the process buffer."
(interactive "r")
(scheme-send-region start end)
(switch-to-scheme t))
(defun scheme-send-definition-and-go ()
- "Send the current definition to the inferior Scheme,
-and switch to the process buffer."
+ "Send the current definition to the inferior Scheme.
+Then switch to the process buffer."
(interactive)
(scheme-send-definition)
(switch-to-scheme t))
(defun scheme-compile-definition-and-go ()
- "Compile the current definition in the inferior Scheme,
-and switch to the process buffer."
+ "Compile the current definition in the inferior Scheme.
+Then switch to the process buffer."
(interactive)
(scheme-compile-definition)
(switch-to-scheme t))
(defun scheme-compile-region-and-go (start end)
- "Compile the current region in the inferior Scheme,
-and switch to the process buffer."
+ "Compile the current region in the inferior Scheme.
+Then switch to the process buffer."
(interactive "r")
(scheme-compile-region start end)
(switch-to-scheme t))
Used by these commands to determine defaults.")
(defvar scheme-prev-l/c-dir/file nil
- "Caches the (directory . file) pair used in the last scheme-load-file or
+ "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.")