Skip to content
Snippets Groups Projects
Commit f9f0e3dc authored by pw's avatar pw
Browse files

DIRED was bombing when attempting to delete a marked file

that was already gone. This just adds a sanity check.
parent 57c26966
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/diredcoms.lisp,v 1.5 1997/01/18 14:31:50 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/diredcoms.lisp,v 1.6 1997/02/25 22:36:03 pw Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -751,7 +751,8 @@
((= i length) (values (nreverse marked-files) (nreverse marked-dirs)))
(let* ((thing (svref files i))
(pathname (dired-file-pathname thing)))
(when (dired-file-deleted-p thing)
(when (and (dired-file-deleted-p thing) ; file marked for delete
(probe-file pathname)) ; file still exists
(if (directoryp pathname)
(push (cons pathname (file-write-date pathname)) marked-dirs)
(push (cons pathname (file-write-date pathname))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment