From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 25 Feb 1993 08:55:45 +0000 (+0000)
Subject: shell-command must be autoloaded.  `M-x shell' needs it.
X-Git-Tag: 20090517-FFI~8453
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a3368466d28cd22390c7748badd7ca6dc73d680;p=mit-scheme.git

shell-command must be autoloaded.  `M-x shell' needs it.
---

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 39490649e..f776331ad 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.20 1993/02/25 03:13:14 gjr Exp $
+;;;	$Id: loadef.scm,v 1.21 1993/02/25 08:55:45 gjr Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -232,6 +232,8 @@ variable's value is #F, the text is printed using LPR-COMMAND."
 	"Execute string COMMAND in inferior shell; display output, if any.")
       (define-autoload-command 'shell-command-on-region 'DOSCOM
 	"Execute string COMMAND in inferior shell with region as input.")
+      (define-autoload-procedure 'shell-command '(EDWIN DOSJOB)
+	'DOSCOM)
 
       (define-library 'DOSSHELL
 	'("dosshell" (EDWIN DOSJOB)))