mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(run-scheme): Add autoload cookie.

Browse Source 
(scheme): Function deleted.
This commit is contained in:
Richard M. Stallman 1994-10-18 06:34:44 +00:00
parent e175bda252
commit a03385143c
1 changed files with 1 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lisp/cmuscheme.el
View File

@ -64,35 +64,6 @@
;;; Cscheme-specific; you must use cmuscheme.el. Interested parties are
;;; invited to port xscheme functionality on top of comint mode...
;; YOUR .EMACS FILE
;;=============================================================================
;; Some suggestions for your .emacs file.
;;
;; ; Autoload run-scheme from file cmuscheme.el
;; (autoload 'run-scheme "cmuscheme"
;; "Run an inferior Scheme process."
;; t)
;;
;; ; Define C-c t to run my favorite command in inferior scheme mode:
;; (setq cmuscheme-load-hook
;; '((lambda () (define-key inferior-scheme-mode-map "\C-ct"
;; 'favorite-cmd))))
;;;
;;; Unfortunately, scheme.el defines run-scheme to autoload from xscheme.el.
;;; This will womp your declaration to autoload run-scheme from cmuscheme.el
;;; if you haven't loaded cmuscheme in before scheme. Three fixes:
;;; - Put the autoload on your scheme mode hook and in your .emacs toplevel:
;;; (setq scheme-mode-hook
;;; '((lambda () (autoload 'run-scheme "cmuscheme"
;;; "Run an inferior Scheme" t))))
;;; (autoload 'run-scheme "cmuscheme" "Run an inferior Scheme" t)
;;; Now when scheme.el autoloads, it will restore the run-scheme autoload.
;;; - Load cmuscheme.el in your .emacs: (load-library 'cmuscheme)
;;; - Change autoload declaration in scheme.el to point to cmuscheme.el:
;;; (autoload 'run-scheme "cmuscheme" "Run an inferior Scheme" t)
;;; *or* just delete the autoload declaration from scheme.el altogether,
;;; which will allow the autoload in your .emacs to have its say.
;;; Code:
(require 'scheme)
@ -211,13 +182,7 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.")
(defvar scheme-program-name "scheme"
"*Program invoked by the run-scheme command")
;;; Obsolete
(defun scheme (&rest foo)
"Use run-scheme"
(interactive)
(message "Use run-scheme")
(ding))
;;;###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*, just switch to that buffer.