Changes for Emacs 19 autoload mechanism.

diff --git a/etc/scheme.el b/etc/scheme.el
index 35cd2e8d5c2b6445bb9d76c9c6666e2714ac6dd3..4e7dd73c759f09dd16967768d95099c263aafa6c 100644 (file)
--- a/etc/scheme.el
+++ b/etc/scheme.el
@@ -1,5 +1,5 @@
 ;; Scheme mode, and its idiosyncratic commands.
-;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1987, 1988, 1991 Free Software Foundation, Inc.
 ;; Adapted from Lisp mode by Bill Rozas, jinx@prep.
 
 ;; This file is part of GNU Emacs.
@@ -24,7 +24,7 @@
 ;; of special forms.  Probably the code should be merged at some point 
 ;; so that there is sharing between both libraries.
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/scheme.el,v 1.7 1988/07/15 20:20:00 cph Rel $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/scheme.el,v 1.8 1991/05/15 00:52:37 cph Exp $
 
 (provide 'scheme)
 \f
@@ -119,6 +119,7 @@
       (setq scheme-mode-map (make-sparse-keymap))
       (scheme-mode-commands scheme-mode-map)))
 \f
+;;;###autoload
 (defun scheme-mode ()
   "Major mode for editing Scheme code.
 Editing commands are similar to those of lisp-mode.
@@ -147,12 +148,7 @@ if that value is non-nil."
   (setq major-mode 'scheme-mode)
   (setq mode-name "Scheme"))
 
-(autoload 'run-scheme "xscheme"
-  "Run an inferior Scheme process.
-Output goes to the buffer `*scheme*'.
-With argument, asks for a command line."
-  t)
-
+;;;###autoload
 (defvar scheme-mit-dialect t
   "If non-nil, scheme mode is specialized for MIT Scheme.
 Set this to nil if you normally use another dialect.")

diff --git a/etc/xscheme.el b/etc/xscheme.el
index bcfb6d9da27d5207a67fc35f5311de473bd3c84a..b29e19eb508be82e7c4a5116c5ab7603e0cd62ff 100644 (file)
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -20,16 +20,19 @@
 ;;; Requires C-Scheme release 5 or later
 ;;; Changes to Control-G handler require runtime version 13.85 or later
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.27 1991/01/08 04:49:24 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.28 1991/05/15 00:52:50 cph Exp $
 
 (require 'scheme)
 \f
+;;;###autoload
 (defvar scheme-program-name "scheme"
   "*Program invoked by the `run-scheme' command.")
 
+;;;###autoload
 (defvar scheme-band-name nil
   "*Band loaded by the `run-scheme' command.")
 
+;;;###autoload
 (defvar scheme-program-arguments nil
   "*Arguments passed to the Scheme program by the `run-scheme' command.")
 
@@ -69,6 +72,7 @@ Is processed with `substitute-command-keys' first.")
 (xscheme-evaluation-commands scheme-mode-map)
 (xscheme-interrupt-commands scheme-mode-map)
 \f
+;;;###autoload
 (defun run-scheme (command-line)
   "Run an inferior Scheme process.
 Output goes to the buffer `*scheme*'.