From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1999 05:17:18 +0000 (+0000)
Subject: Eliminate use of HISTORY-DEFAULT prompt option.
X-Git-Tag: 20090517-FFI~4666
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c675539ad93eedec3e6f62d02bfcb1ffd45d4ad;p=mit-scheme.git

Eliminate use of HISTORY-DEFAULT prompt option.
---

diff --git a/v7/src/edwin/compile.scm b/v7/src/edwin/compile.scm
index 7549adca9..9de70d0ed 100644
--- a/v7/src/edwin/compile.scm
+++ b/v7/src/edwin/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.10 1999/01/28 06:13:48 cph Exp $
+;;; $Id: compile.scm,v 1.11 1999/01/29 05:17:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -38,7 +38,7 @@ with output going to the buffer *compilation*."
     (list (prompt-for-string "Compile command" #f
 			     'DEFAULT-TYPE 'INSERTED-DEFAULT
 			     'HISTORY 'COMPILE
-			     'HISTORY-DEFAULT #t)))
+			     'HISTORY-INDEX 0)))
   (lambda (command)
     (run-compilation command)))
 
@@ -48,7 +48,7 @@ with output going to the buffer *compilation*."
     (list (prompt-for-string "Run grep (with args): " #f
 			     'DEFAULT-TYPE 'INSERTED-DEFAULT
 			     'HISTORY 'GREP
-			     'HISTORY-DEFAULT #t)))
+			     'HISTORY-INDEX 0)))
   (lambda (command)
     (run-compilation (string-append "grep -n " command " /dev/null"))))
 
@@ -58,7 +58,7 @@ with output going to the buffer *compilation*."
     (list (prompt-for-string "Run fgrep (with args): " #f
 			     'DEFAULT-TYPE 'INSERTED-DEFAULT
 			     'HISTORY 'FGREP
-			     'HISTORY-DEFAULT #t)))
+			     'HISTORY-INDEX 0)))
   (lambda (command)
     (run-compilation (string-append "grep -n " command " /dev/null"))))