From 563db8783de2270500b558c267fba9b24a868db7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Sep 2002 04:03:31 +0000
Subject: [PATCH] Don't initial M-x shell-command prompt history to most recent
 input. Instead make it blank and let the user use M-p.

---
 v7/src/edwin/process.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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*")))
-- 
2.25.1