/[meta-cvs]/meta-cvs/F-993DC8DDEC493F0D641AC0C23DB6BAB0
ViewVC logotype

Diff of /meta-cvs/F-993DC8DDEC493F0D641AC0C23DB6BAB0

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

revision 1.9 by kaz, Sun Jan 27 16:33:14 2002 UTC revision 1.10 by kaz, Thu Jan 31 05:35:02 2002 UTC
# Line 1  Line 1 
1  ;;; This source file is part of the MCVS program,  ;;; This source file is part of the Meta-CVS program,
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
# Line 22  Line 22 
22            (let* ((full-name (sandbox-translate-path file))            (let* ((full-name (sandbox-translate-path file))
23                   (entries (filemap-prefix-matches filemap full-name)))                   (entries (filemap-prefix-matches filemap full-name)))
24              (if (not entries)              (if (not entries)
25                (error "mcvs-remove: ~a is not known to MCVS." full-name)                (error "mcvs-remove: ~a is not known to Meta-CVS." full-name)
26                (setf files-to-remove (nconc files-to-remove entries))))))                (setf files-to-remove (nconc files-to-remove entries))))))
27    
28        (when files-to-remove        (when files-to-remove

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5