From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Jan 1993 10:45:46 +0000 (+0000)
Subject: Fix two bugs in M-x recover-file.
X-Git-Tag: 20090517-FFI~8607
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=505facda5b829d6b070d953479c339a158e7d294;p=mit-scheme.git

Fix two bugs in M-x recover-file.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index a5ba26c6e..86a54c042 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: filcom.scm,v 1.173 1992/11/17 05:48:05 cph Exp $
+;;;	$Id: filcom.scm,v 1.174 1993/01/12 10:45:46 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -184,7 +184,7 @@ invocation."
     (and a
 	 (let ((b (file-modification-time-indirect b)))
 	   (or (not b)
-	       (< a b))))))
+	       (> a b))))))
 
 (define (load-find-file-initialization buffer pathname)
   (let ((pathname
@@ -333,10 +333,12 @@ Argument means don't offer to use auto-save file."
 			    " not current"))
 	  (if (not (call-with-temporary-buffer "*Directory*"
 		     (lambda (buffer)
-		       (read-directory pathname "-l" (buffer-end buffer))
-		       (read-directory auto-save-pathname
-				       "-l"
-				       (buffer-end buffer))
+		       (insert-dired-entry! pathname
+					    (directory-pathname pathname)
+					    (buffer-end buffer))
+		       (insert-dired-entry! auto-save-pathname
+					    (directory-pathname pathname)
+					    (buffer-end buffer))
 		       (set-buffer-point! buffer (buffer-start buffer))
 		       (buffer-not-modified! buffer)
 		       (pop-up-buffer buffer false)