From 2c675539ad93eedec3e6f62d02bfcb1ffd45d4ad Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 29 Jan 1999 05:17:18 +0000 Subject: [PATCH] Eliminate use of HISTORY-DEFAULT prompt option. --- v7/src/edwin/compile.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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")))) -- 2.25.1