/[meta-cvs]/meta-cvs/F-205A90D152A06EE04D552B256CDAF850
ViewVC logotype

Diff of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

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

revision 1.24 by kaz, Fri Nov 24 04:53:49 2006 UTC revision 1.25 by kaz, Tue Nov 28 04:12:07 2006 UTC
# Line 4  Line 4 
4    
5  (in-package :meta-cvs)  (in-package :meta-cvs)
6    
7  (defun mcvs-update (&optional cvs-options cvs-update-options files)  (defun update (&optional cvs-options cvs-update-options files)
8    (let ((need-sync (not (find "p" cvs-update-options    (let ((need-sync (not (find "p" cvs-update-options
9                                :key #'first :test #'string=))))                                :key #'first :test #'string=))))
10      (if (or files *metaonly-option* *nometa-option*)      (if (or files *metaonly-option* *nometa-option*)
11        (mcvs-generic "update" cvs-options cvs-update-options nil        (generic "update" cvs-options cvs-update-options nil
12                      files :need-sync-after need-sync                 files :need-sync-after need-sync
13                      :need-update-after t)                 :need-update-after t)
14        (in-sandbox-root-dir        (in-sandbox-root-dir
15          (if need-sync          (if need-sync
16            (progn            (progn
# Line 47  Line 47 
47                (error "CVS update failed."))))))                (error "CVS update failed."))))))
48    (values))    (values))
49    
50  (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)  (defun update-wrapper (cvs-options cvs-command-options mcvs-args)
51    (mcvs-update cvs-options cvs-command-options mcvs-args))    (update cvs-options cvs-command-options mcvs-args))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5