/[meta-cvs]/meta-cvs/F-255EFD9E99EDDE6614CF2CD912CA4E5C
ViewVC logotype

Diff of /meta-cvs/F-255EFD9E99EDDE6614CF2CD912CA4E5C

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

revision 1.17 by kaz, Thu Mar 28 22:50:40 2002 UTC revision 1.18 by kaz, Thu Mar 28 22:52:57 2002 UTC
# Line 8  Line 8 
8  (provide "move")  (provide "move")
9    
10  (defun source-check (expansion source)  (defun source-check (expansion source)
11      (when (path-prefix-equal *mcvs-dir* source)
12         (error "mcvs-move: path ~a is in a reserved Meta-CVS area." source))
13    (when (not expansion)    (when (not expansion)
14      (if (exists source)      (if (exists source)
15        (error "mcvs-move: ~a is local, not versioned under Meta-CVS." source)        (error "mcvs-move: ~a is local, not versioned under Meta-CVS." source)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5