From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Thu, 4 Jun 1992 03:08:17 +0000 (+0000)
Subject: Added files to avoid for completion.
X-Git-Tag: 20090517-FFI~9290
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=19ced6f6ef4e024546186c168dae10576b913eac;p=mit-scheme.git

Added files to avoid for completion.
---

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 190007f94..320d6f169 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dos.scm,v 1.1 1992/05/12 15:29:45 mhwu Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dos.scm,v 1.2 1992/06/04 03:08:17 mhwu Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -323,11 +323,12 @@ Includes the new backup.  Must be > 0."
 	       (string-suffix? extension filename))))))
 
 (define (os/completion-ignored-extensions)
-  (append '(".bin" ".com" ".ext" ".inf"
-		   ".psb" ".moc" ".fni"
-		   ".bco" ".bld" ".bad" ".glo" ".fre"
-		   ".obj" ".exe" ".pif"
-		   ".dvi" ".toc" ".log" ".aux")
+  (append '(".bin" ".com" ".ext"
+	    ".inf" ".bif" ".bsm" ".bci" ".bcs"
+  	    ".psb" ".moc" ".fni"
+  	    ".bco" ".bld" ".bad" ".glo" ".fre"
+	    ".obj" ".exe" ".pif" ".grp"
+	    ".dvi" ".toc" ".log" ".aux")
 	  (list-copy dos/backup-suffixes)))
 
 (define-variable completion-ignored-extensions