/[meta-cvs]/meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490
ViewVC logotype

Diff of /meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490

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

revision 1.13.2.2 by kaz, Mon Nov 4 01:09:35 2002 UTC revision 1.13.2.3 by kaz, Mon Nov 4 02:07:35 2002 UTC
# Line 146  of strings." Line 146  of strings."
146    
147  (defun filter-global-options (opts)  (defun filter-global-options (opts)
148    (process-cvs-options (filter-mcvs-options opts)))    (process-cvs-options (filter-mcvs-options opts)))
149    
150    (defmacro honor-dry-run (vars &rest forms)
151      `(cond
152         (*dry-run-option*
153           (chatter-debug
154             "Because of -n option, not executing ~s with bindings ~s.~%"
155             ',forms
156             (list ,@(mapcar #'(lambda (var) `(list ',var ,var)) vars))))
157         (t ,@forms)))

Legend:
Removed from v.1.13.2.2  
changed lines
  Added in v.1.13.2.3

  ViewVC Help
Powered by ViewVC 1.1.5