/[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.17 by kaz, Tue Apr 16 14:50:18 2002 UTC revision 1.18 by kaz, Mon Jul 1 16:16:25 2002 UTC
# Line 8  Line 8 
8  (require "find-bind")  (require "find-bind")
9  (provide "remove")  (provide "remove")
10    
11  (defun mcvs-remove (recursivep files)  (defun mcvs-remove (recursivep files &key no-sync)
12    (when (null files)    (when (null files)
13      (return-from mcvs-remove (values)))      (return-from mcvs-remove (values)))
14    
# Line 36  Line 36 
36    
37        (when files-to-remove        (when files-to-remove
38          (chatter-debug "Synchronizing.~%")          (chatter-debug "Synchronizing.~%")
39          (mapping-synchronize)          (unless no-sync
40              (mapping-synchronize))
41          (let ((new-filemap (set-difference filemap files-to-remove          (let ((new-filemap (set-difference filemap files-to-remove
42                                             :test #'mapping-same-object-p)))                                             :test #'mapping-same-object-p)))
43            (mapping-write new-filemap *mcvs-map* :sort-map t))            (mapping-write new-filemap *mcvs-map* :sort-map t))
44    
45          (chatter-debug "Updating file structure.~%")          (chatter-debug "Updating file structure.~%")
46          (mapping-update))))          (mapping-update :no-delete-removed no-sync))))
47    (values))    (values))
48    
49  (defun mcvs-remove-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-remove-wrapper (cvs-options cvs-command-options mcvs-args)

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

  ViewVC Help
Powered by ViewVC 1.1.5