/[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 by ram, Wed May 9 13:03:33 1990 UTC revision 1.2 by ram, Fri Jul 13 15:11:36 1990 UTC
# Line 64  Line 64 
64       "  Type ? for help.  "))       "  Type ? for help.  "))
65    
66  (defcommand "Dired" (p &optional directory)  (defcommand "Dired" (p &optional directory)
67    "Prompt for a directory and edit it.  If a dired for that directory already    "Prompts for a directory and edits it.  If a dired for that directory already
68     exists, go to that buffer, otherwise create one.  With an argument, include     exists, go to that buffer, otherwise create one.  With an argument, include
69     UNIX dot files."     UNIX dot files."
70    "Prompt for a directory and edit it.  If a dired for that directory already    "Prompts for a directory and edits it.  If a dired for that directory already
71     exists, go to that buffer, otherwise create one.  With an argument, include     exists, go to that buffer, otherwise create one.  With an argument, include
72     UNIX dot files."     UNIX dot files."
73    (let ((info (if directory (value dired-information))))    (let ((info (if (hemlock-bound-p 'dired-information)
74                      (value dired-information))))
75      (dired-guts nil      (dired-guts nil
76                  ;; Propagate dot-files property to subdirectory edits.                  ;; Propagate dot-files property to subdirectory edits.
77                  (or (and info (dired-info-dot-files-p info))                  (or (and info (dired-info-dot-files-p info))
# Line 320  Line 321 
321          (dired-command p (directory-namestring pathname))          (dired-command p (directory-namestring pathname))
322          (editor-error "No pathname associated with buffer."))))          (editor-error "No pathname associated with buffer."))))
323    
324    (defcommand "Dired Up Directory" (p)
325      "Invokes \"Dired\" on the directory up one level from the current Dired
326       buffer."
327      "Invokes \"Dired\" on the directory up one level from the current Dired
328       buffer."
329      (declare (ignore p))
330      (unless (hemlock-bound-p 'dired-information)
331        (editor-error "Not in Dired buffer."))
332      (let ((dirs (pathname-directory
333                   (dired-info-pathname (value dired-information)))))
334        (declare (simple-vector dirs))
335        (dired-command nil
336                       (make-pathname
337                        :device :absolute
338                        :directory (subseq dirs 0 (1- (length dirs)))))))
339    
340    
341    
342  ;;;; Dired misc. commands -- update, help, line motion.  ;;;; Dired misc. commands -- update, help, line motion.

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5