From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Sep 2002 04:03:31 +0000 (+0000)
Subject: Don't initial M-x shell-command prompt history to most recent input.
X-Git-Tag: 20090517-FFI~2153
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=563db8783de2270500b558c267fba9b24a868db7;p=mit-scheme.git

Don't initial M-x shell-command prompt history to most recent input.
Instead make it blank and let the user use M-p.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 0aab10014..008085e42 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: process.scm,v 1.60 2001/09/21 16:23:18 cph Exp $
+;;; $Id: process.scm,v 1.61 2002/09/06 04:03:31 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
 ;;;
@@ -704,8 +704,7 @@ Prefix arg means replace the region with it."
 (define (shell-command-prompt prompt)
   (prompt-for-string prompt #f
 		     'DEFAULT-TYPE 'INSERTED-DEFAULT
-		     'HISTORY 'SHELL-COMMAND
-		     'HISTORY-INDEX 0))
+		     'HISTORY 'SHELL-COMMAND))
 
 (define (shell-command-pop-up-output generate-output)
   (let ((buffer (temporary-buffer "*Shell Command Output*")))