Doc fixes.

(cmuscheme) <defgroup>: Use `scheme' as parent.
(cmuscheme-program-name): Remove.  Change uses to
scheme-program-name.

lisp/cmuscheme.el

@@ -99,7 +99,7 @@
 
 (defgroup cmuscheme nil
   "Run a scheme process in a buffer."
-  :group 'lisp)
+  :group 'scheme)
 
 ;;; INFERIOR SCHEME MODE STUFF
 ;;;============================================================================
@@ -208,11 +208,11 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters."
   :group 'cmuscheme)
 
 (defun scheme-input-filter (str)
-  "Don't save anything matching inferior-scheme-filter-regexp"
+  "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"
+  "Snarf the sexp ending at point."
   (save-excursion
     (let ((end (point)))
       (backward-sexp)
@@ -231,29 +231,24 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters."
 		 (scheme-args-to-list (substring string pos
 						 (length string)))))))))
 
-(defcustom cmuscheme-program-name "scheme"
-  "*Program invoked by the run-scheme command"
-  :type 'string
-  :group 'cmuscheme)
-
 ;;;###autoload
 (defun run-scheme (cmd)
   "Run an inferior Scheme process, input and output via buffer *scheme*.
 If there is a process already running in `*scheme*', switch to that buffer.
 With argument, allows you to edit the command line (default is value
-of `cmuscheme-program-name').  Runs the hooks `inferior-scheme-mode-hook'
+of `scheme-program-name').  Runs the hooks `inferior-scheme-mode-hook'
 \(after the `comint-mode-hook' is run).
 \(Type \\[describe-mode] in the process buffer for a list of commands.)"
 
   (interactive (list (if current-prefix-arg
-			 (read-string "Run Scheme: " cmuscheme-program-name)
+			 (read-string "Run Scheme: " scheme-program-name)
-			 cmuscheme-program-name)))
+			 scheme-program-name)))
   (if (not (comint-check-proc "*scheme*"))
       (let ((cmdlist (scheme-args-to-list cmd)))
 	(set-buffer (apply 'make-comint "scheme" (car cmdlist)
 			   nil (cdr cmdlist)))
 	(inferior-scheme-mode)))
-  (setq cmuscheme-program-name cmd)
+  (setq scheme-program-name cmd)
   (setq scheme-buffer "*scheme*")
   (pop-to-buffer "*scheme*"))
 ;;;###autoload (add-hook 'same-window-buffer-names "*scheme*")
@@ -303,11 +298,11 @@ of `cmuscheme-program-name').  Runs the hooks `inferior-scheme-mode-hook'
 
 (defun switch-to-scheme (eob-p)
   "Switch to the scheme process buffer.
-With argument, positions cursor at end of buffer."
+With argument, position cursor at end of buffer."
   (interactive "P")
   (if (get-buffer scheme-buffer)
       (pop-to-buffer scheme-buffer)
-      (error "No current process buffer. See variable scheme-buffer."))
+      (error "No current process buffer.  See variable `scheme-buffer'"))
   (cond (eob-p
 	 (push-mark)
 	 (goto-char (point-max)))))
@@ -343,19 +338,19 @@ Then switch to the process buffer."
 (defcustom scheme-source-modes '(scheme-mode)
   "*Used to determine if a buffer contains Scheme source code.
 If it's loaded into a buffer that is in one of these major modes, it's
-considered a scheme source file by scheme-load-file and scheme-compile-file.
+considered a scheme source file by `scheme-load-file' and `scheme-compile-file'.
 Used by these commands to determine defaults."
   :type '(repeat function)
   :group 'cmuscheme)
 
 (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
+Caches the last pair used in the last `scheme-load-file' or
-scheme-compile-file command. Used for determining the default in the 
+`scheme-compile-file' command. Used for determining the default in the
 next one.")
 
 (defun scheme-load-file (file-name)
-  "Load a Scheme file into the inferior Scheme process."
+  "Load a Scheme file FILE-NAME into the inferior Scheme process."
   (interactive (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file
 				  scheme-source-modes t)) ; T because LOAD
                                                           ; needs an exact name
@@ -367,7 +362,7 @@ next one.")
 					    "\"\)\n")))
 
 (defun scheme-compile-file (file-name)
-  "Compile a Scheme file in the inferior Scheme process."
+  "Compile a Scheme file FILE-NAME in the inferior Scheme process."
   (interactive (comint-get-source "Compile Scheme file: "
 				  scheme-prev-l/c-dir/file
 				  scheme-source-modes
@@ -393,9 +388,9 @@ with \\[rename-buffer]. You may now start up a new process with another
 switch between the different process buffers with \\[switch-to-buffer].
 
 Commands that send text from source buffers to Scheme processes --
-like scheme-send-definition or scheme-compile-region -- have to choose a
+like `scheme-send-definition' or `scheme-compile-region' -- have to choose a
 process to send to, when you have more than one Scheme process around.  This
-is determined by the global variable scheme-buffer. Suppose you
+is determined by the global variable `scheme-buffer'.  Suppose you
 have three inferior Schemes running:
     Buffer	Process
     foo		scheme
@@ -407,13 +402,13 @@ code, what process do you send it to?
 - If you're in a process buffer (foo, bar, or *scheme*),
   you send it to that process.
 - If you're in some other buffer (e.g., a source file), you
-  send it to the process attached to buffer scheme-buffer.
+  send it to the process attached to buffer `scheme-buffer'.
-This process selection is performed by function scheme-proc.
+This process selection is performed by function `scheme-proc'.
 
-Whenever \\[run-scheme] fires up a new process, it resets scheme-buffer
+Whenever \\[run-scheme] fires up a new process, it resets `scheme-buffer'
 to be the new process's buffer.  If you only run one process, this will
 do the right thing.  If you run multiple processes, you can change
-scheme-buffer to another process buffer with \\[set-variable].
+`scheme-buffer' to another process buffer with \\[set-variable].
 
 More sophisticated approaches are, of course, possible.  If you find yourself
 needing to switch back and forth between multiple processes frequently,
@@ -422,12 +417,12 @@ for running inferior Lisp and Scheme processes. The approach taken here is
 for a minimal, simple implementation.  Feel free to extend it.")
 
 (defun scheme-proc ()
-  "Returns the current scheme process. See variable scheme-buffer."
+  "Return the current scheme process.  See variable `scheme-buffer'."
   (let ((proc (get-buffer-process (if (eq major-mode 'inferior-scheme-mode)
 				      (current-buffer)
 				      scheme-buffer))))
     (or proc
-	(error "No current process. See variable scheme-buffer"))))
+	(error "No current process.  See variable `scheme-buffer'"))))
 
 
 ;;; Do the user's customisation...