/[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.7 by phg, Wed Jan 22 15:11:16 1992 UTC revision 1.1.1.8 by phg, Fri Jan 24 11:17:16 1992 UTC
# Line 334  Line 334 
334      (editor-error "Not in Dired buffer."))      (editor-error "Not in Dired buffer."))
335    (let ((dirs (pathname-directory    (let ((dirs (pathname-directory
336                 (dired-info-pathname (value dired-information)))))                 (dired-info-pathname (value dired-information)))))
     (declare (simple-vector dirs))  
     (dired-command nil  
                    (make-pathname  
                     :device :absolute  
                     :directory (subseq dirs 0 (1- (length dirs)))))))  
   
 (defcommand "Dired Up Directory" (p)  
   "Invokes \"Dired\" on the directory up one level from the current Dired  
    buffer."  
   "Invokes \"Dired\" on the directory up one level from the current Dired  
    buffer."  
   (declare (ignore p))  
   (unless (hemlock-bound-p 'dired-information)  
     (editor-error "Not in Dired buffer."))  
   (let ((dirs (pathname-directory  
                (dired-info-pathname (value dired-information)))))  
337      (declare (list dirs))      (declare (list dirs))
338      (dired-command nil      (dired-command nil
339                     (truename (make-pathname :directory (nconc dirs ':UP))))))                     (truename (make-pathname :directory (nconc dirs '(:UP)))))))
340    
341    
342    

Legend:
Removed from v.1.1.1.7  
changed lines
  Added in v.1.1.1.8

  ViewVC Help
Powered by ViewVC 1.1.5