Merge common parts of DOS/WIN32 and OS2 file-name customization.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index e6cee4a64082047d0976a9bafc273106b82a4fa8..dcc0e7c52658af16dd2823d563eb3c4094331a27 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dosfile.scm,v 1.3 1995/10/25 03:26:46 cph Exp $
+;;;    $Id: dosfile.scm,v 1.4 1995/10/25 03:49:29 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -64,6 +64,11 @@ Includes the new backup.  Must be > 0."
   2
   (lambda (n) (and (exact-integer? n) (> n 0))))
 
+(define dos/backup-suffixes
+  (cons "~"
+       (map (lambda (type) (string-append "~." type))
+            dos/encoding-pathname-types)))
+
 (define-variable completion-ignored-extensions
   "Completion ignores filenames ending in any string in this list."
   (append (list ".bin" ".com" ".ext"
@@ -226,11 +231,6 @@ Includes the new backup.  Must be > 0."
                (cons (substring filename root-start root-end)
                      version))))))
 
-(define dos/backup-suffixes
-  (cons "~"
-       (map (lambda (type) (string-append "~." type))
-            dos/encoding-pathname-types)))
-
 (define (os/auto-save-filename? filename)
   (or (re-match-string-forward (re-compile-pattern "^#.+#$" #f)
                               #f