From 647046c096b3f1c594b7cad9795bdec9e38c0942 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 May 1991 23:06:17 +0000
Subject: [PATCH] Eliminate incorrect case sensitivity in completion.

---
 v7/src/edwin/prompt.scm | 7 ++++---
 v7/src/edwin/utils.scm  | 5 ++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 74f024865..e1fdd55ba 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.140 1991/05/02 01:14:05 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.141 1991/05/16 23:06:17 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -512,7 +512,7 @@ a repetition of this command will exit."
 	 (lambda (new-string)
 	   (let ((end (string-length new-string)))
 	     (let ((index
-		    (and (string-prefix? string new-string)
+		    (and (string-prefix-ci? string new-string)
 			 (substring-find-next-char-not-of-syntax
 			  new-string
 			  (string-length string)
@@ -538,7 +538,8 @@ a repetition of this command will exit."
 				(list-transform-positive completions
 				  (let ((prefix (string-append string suffix)))
 				    (lambda (completion)
-				      (string-prefix? prefix completion))))))
+				      (string-prefix-ci? prefix
+							 completion))))))
 			   (cond ((null? completions)
 				  (if-not-found))
 				 ((null? (cdr completions))
diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 1fbab6d24..fd9c7fb9b 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.24 1991/05/10 04:59:10 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.25 1991/05/16 23:06:00 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -71,8 +71,7 @@
     (if (null? strings)
 	(substring string 0 index)
 	(let ((string* (car strings)))
-	  (let ((index*
-		 (string-match-forward string string*)))
+	  (let ((index* (string-match-forward-ci string string*)))
 	    (if (< index* index)
 		(loop (cdr strings) string* index*)
 		(loop (cdr strings) string index)))))))
-- 
2.25.1