ViewVC logotype

Diff of /meta-cvs/F-993DC8DDEC493F0D641AC0C23DB6BAB0

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

revision 1.15 by kaz, Fri Mar 15 23:13:55 2002 UTC revision 1.16 by kaz, Fri Mar 15 23:25:56 2002 UTC
# Line 20  Line 20 
20          (can-restart-here ("Continue unmapping files.")          (can-restart-here ("Continue unmapping files.")
21            (let* ((full-name (sandbox-translate-path file))            (let* ((full-name (sandbox-translate-path file))
22                   (entries (mapping-prefix-matches filemap full-name)))                   (entries (mapping-prefix-matches filemap full-name)))
23              (when (and (second entries) (not recursivep))              (cond
24                (error "mcvs-remove: ~a is a directory, use -R to remove."                ((path-prefix-equal *mcvs-dir* full-name)
25                       full-name))                   (error "mcvs-remove: path ~a is in a reserved Meta-CVS area."
26              (if (not entries)                          full-name))
27                (error "mcvs-remove: ~a is not known to Meta-CVS." full-name)                ((and (second entries) (not recursivep))
28                (setf files-to-remove (nconc files-to-remove entries))))))                   (error "mcvs-remove: ~a is a directory, use -R to remove."
29                            full-name))
30                ((not entries)
31                   (if (exists full-name)
32                     (error "mcvs-remove: ~a is local, not versioned under Meta-CVS."
33                            full-name)
34                     (error "mcvs-remove: ~a does not exist." full-name))
35                (t (setf files-to-remove (nconc files-to-remove entries))))))))
37        (when files-to-remove        (when files-to-remove
38          (chatter-debug "Synchronizing.~%")          (chatter-debug "Synchronizing.~%")

Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5