/[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.1.1.1 by ram, Fri Jul 13 14:47:58 1990 UTC
# Line 417  Line 417 
417  (defcommand "Dired Next File" (p)  (defcommand "Dired Next File" (p)
418    "Moves to next undeleted file."    "Moves to next undeleted file."
419    "Moves to next undeleted file."    "Moves to next undeleted file."
   (declare (ignore p))  
420    (unless (dired-line-offset (current-point) (or p 1))    (unless (dired-line-offset (current-point) (or p 1))
421      (editor-error "Not enough lines.")))      (editor-error "Not enough lines.")))
422    
423  (defcommand "Dired Previous File" (p)  (defcommand "Dired Previous File" (p)
424    "Moves to previous undeleted file."    "Moves to previous undeleted file."
425    "Moves to next undeleted file."    "Moves to next undeleted file."
   (declare (ignore p))  
426    (unless (dired-line-offset (current-point) (or p -1))    (unless (dired-line-offset (current-point) (or p -1))
427      (editor-error "Not enough lines.")))      (editor-error "Not enough lines.")))
428    

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

  ViewVC Help
Powered by ViewVC 1.1.5