Apparently the unix definition of completion-ignored-extensions was
authorChris Hanson <org/chris-hanson/cph>
Thu, 28 Sep 1995 06:08:16 +0000 (06:08 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 28 Sep 1995 06:08:16 +0000 (06:08 +0000)
missing all of the standard Scheme extensions.

v7/src/edwin/unix.scm

index d26eeb10832c64e819d8f4e55c16ed4f7bd253ad..d3b649c495e665a6c4d29d36c4e6ff0a2681207d 100644 (file)
@@ -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