From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Sep 1995 06:08:16 +0000 (+0000)
Subject: Apparently the unix definition of completion-ignored-extensions was
X-Git-Tag: 20090517-FFI~5933
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fff0fd7534e1ccb46553e281f4212ae41c3c6a8e;p=mit-scheme.git

Apparently the unix definition of completion-ignored-extensions was
missing all of the standard Scheme extensions.
---

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index d26eeb108..d3b649c49 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.54 1995/09/27 16:23:56 cph Exp $
+;;;	$Id: unix.scm,v 1.55 1995/09/28 06:08:16 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -320,9 +320,13 @@ Includes the new backup.  Must be > 0."
 	   (string-suffix? extension filename)))))
 
 (define (os/completion-ignored-extensions)
-  (append '(".o" ".elc" ".bin" ".lbin" ".fasl"
-		 ".dvi" ".toc" ".log" ".aux"
-		 ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot")
+  (append (list ".bin" ".com" ".ext"
+		".inf" ".bif" ".bsm" ".bci" ".bcs"
+		".psb" ".moc" ".fni"
+		".bco" ".bld" ".bad" ".glo" ".fre"
+		".o" ".elc" ".bin" ".lbin" ".fasl"
+		".dvi" ".toc" ".log" ".aux"
+		".lof" ".blg" ".bbl" ".glo" ".idx" ".lot")
 	  (list-copy unix/backup-suffixes)))
 
 (define-variable completion-ignored-extensions