From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 3 Nov 1998 05:53:36 +0000 (+0000)
Subject: Do case-sensitive completion if *PARSER-CANONICALIZE-SYMBOLS?* is
X-Git-Tag: 20090517-FFI~4720
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6120febffd57f8a5f37fb57ee13b1203c8fb9803;p=mit-scheme.git

Do case-sensitive completion if *PARSER-CANONICALIZE-SYMBOLS?* is
false.
---

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index ef8fd5e78..9f4acd491 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: schmod.scm,v 1.42 1998/06/07 08:14:37 cph Exp $
+;;;	$Id: schmod.scm,v 1.43 1998/11/03 05:53:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -227,7 +227,10 @@ The following commands evaluate Scheme expressions:
 	(lambda (prefix if-unique if-not-unique if-not-found)
 	  (let ((completions
 		 (let ((completions
-			(obarray-completions (string-downcase prefix))))
+			(obarray-completions
+			 (if *parser-canonicalize-symbols?*
+			     (string-downcase prefix)
+			     prefix))))
 		   (if (not bound-only?)
 		       completions
 		       (let ((environment (evaluation-environment #f)))
@@ -246,7 +249,7 @@ The following commands evaluate Scheme expressions:
 	(lambda (completion)
 	  (delete-string start end)
 	  (insert-string completion start))))))
-
+
 (define (obarray-completions prefix)
   (let ((obarray (fixed-objects-item 'OBARRAY)))
     (let ((prefix-length (string-length prefix))