/[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.23.2.1 by kaz, Sat Oct 26 18:54:43 2002 UTC revision 1.23.2.2 by kaz, Sun Apr 13 06:22:43 2003 UTC
# Line 37  Line 37 
37                (t (setf files-to-remove (nconc files-to-remove entries)))))))                (t (setf files-to-remove (nconc files-to-remove entries)))))))
38    
39        (when files-to-remove        (when files-to-remove
40            ;; Removed files might have unsynchronized local edits, which
41            ;; will be irretrievably lost if we don't synchronize.
42            ;; But the grab command does not need this, hence no-sync option.
43          (chatter-debug "Synchronizing.~%")          (chatter-debug "Synchronizing.~%")
44          (unless no-sync          (unless no-sync
45            (mapping-synchronize))            (mapping-synchronize :direction :left))
46          (let ((new-filemap (set-difference filemap files-to-remove          (let ((new-filemap (set-difference filemap files-to-remove
47                                             :test #'mapping-same-id-p)))                                             :test #'mapping-same-id-p)))
48            (mapping-write new-filemap *mcvs-map* :sort-map t))            (mapping-write new-filemap *mcvs-map* :sort-map t))

Legend:
Removed from v.1.23.2.1  
changed lines
  Added in v.1.23.2.2

  ViewVC Help
Powered by ViewVC 1.1.5