# HG changeset patch
# User Christopher Zaborsky <rogue@erratum.com>
# Date 718401655 0
# Node ID 1777d125c0a7bc6600edc0dd5747263347969d4c
# Parent  64d3e2f4b8bede8f38ff9fd3ab32a87b67759df7
Doc fix.

diff -r 64d3e2f4b8be -r 1777d125c0a7 lisp/cmuscheme.el
--- a/lisp/cmuscheme.el	Tue Oct 06 18:53:45 1992 +0000
+++ b/lisp/cmuscheme.el	Tue Oct 06 20:00:55 1992 +0000
@@ -269,7 +269,7 @@
   "*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
@@ -298,29 +298,29 @@
 	 (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))
@@ -332,7 +332,8 @@
 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.")