From a8ffcb4ca83a81ef05bc869c11fb54e8a2ba5295 Mon Sep 17 00:00:00 2001
From: "Henry M. Wu" <edu/mit/csail/zurich/mhwu>
Date: Wed, 22 Apr 1992 20:26:56 +0000
Subject: [PATCH] Added os/auto-save-filename? to replace dependent code in
 dired.scm.

---
 v7/src/edwin/dired.scm |  7 +++----
 v7/src/edwin/unix.scm  | 10 +++++++++-
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 639ebf154..f34e0b3cc 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.123 1992/04/18 16:38:49 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.124 1992/04/22 20:26:56 mhwu Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -498,9 +498,8 @@ CANNOT contain the 'F' option."
       (lambda ()
 	(for-each-file-line (current-buffer)
 	  (lambda (lstart)
-	    (if (match-forward "#"
-			       (dired-filename-start lstart)
-			       (line-end lstart 0))
+	    (if (os/auto-save-filename?
+		 (region->string (dired-filename-region lstart)))
 		(dired-mark-1 lstart #\D))))))))
 
 (define-command dired-flag-backup-files
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index f91db1140..89d123b63 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/unix.scm,v 1.24 1992/04/21 17:27:25 mhwu Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/unix.scm,v 1.25 1992/04/22 20:26:41 mhwu Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -279,6 +279,7 @@ Includes the new backup.  Must be > 0."
 	  (substring filename (+ index 1) end)
 	  filename))))
 
+
 (define unix/encoding-pathname-types
   '("Z"))
 
@@ -349,6 +350,13 @@ Includes the new backup.  Must be > 0."
 	     (merge-pathnames ".edwin-ffi" (directory-pathname pathname))))
 	(and (file-exists? pathname)
 	     pathname))))
+
+(define (os/auto-save-filename? filename)
+  ;; This could be more sophisticated, but is what the edwin
+  ;; code was originally doing.
+  (and (string? filename)
+       (string-find-next-char filename #\#)))
+       
 
 (define (os/read-file-methods)
   (list maybe-read-compressed-file
-- 
2.25.1