/[cmucl]/src/hemlock/diredcoms.lisp
ViewVC logotype

Diff of /src/hemlock/diredcoms.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.9 by phg, Thu Jun 4 22:43:31 1992 UTC revision 1.6 by pw, Tue Feb 25 22:36:03 1997 UTC
# Line 3  Line 3 
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the CMU Common Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact  
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.  
6  ;;;  ;;;
7  (ext:file-comment  (ext:file-comment
8    "$Header$")    "$Header$")
# Line 332  Line 330 
330    (declare (ignore p))    (declare (ignore p))
331    (unless (hemlock-bound-p 'dired-information)    (unless (hemlock-bound-p 'dired-information)
332      (editor-error "Not in Dired buffer."))      (editor-error "Not in Dired buffer."))
333    (let ((dirs (pathname-directory    (let ((dirs (or (pathname-directory
334                 (dired-info-pathname (value dired-information)))))                     (dired-info-pathname (value dired-information)))
335                      '(:relative))))
336      (dired-command nil      (dired-command nil
337                     (truename (make-pathname :directory (nconc dirs '(:UP)))))))                     (truename (make-pathname :directory (nconc dirs '(:UP)))))))
338    
# Line 752  Line 751 
751          ((= i length) (values (nreverse marked-files) (nreverse marked-dirs)))          ((= i length) (values (nreverse marked-files) (nreverse marked-dirs)))
752        (let* ((thing (svref files i))        (let* ((thing (svref files i))
753               (pathname (dired-file-pathname thing)))               (pathname (dired-file-pathname thing)))
754          (when (dired-file-deleted-p thing)          (when (and (dired-file-deleted-p thing) ; file marked for delete
755                       (probe-file pathname))       ; file still exists
756            (if (directoryp pathname)            (if (directoryp pathname)
757                (push (cons pathname (file-write-date pathname)) marked-dirs)                (push (cons pathname (file-write-date pathname)) marked-dirs)
758                (push (cons pathname (file-write-date pathname))                (push (cons pathname (file-write-date pathname))

Legend:
Removed from v.1.1.1.9  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5