/[meta-cvs]/meta-cvs/F-C232DEE072E25B4F4683B91342CEC065
ViewVC logotype

Diff of /meta-cvs/F-C232DEE072E25B4F4683B91342CEC065

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

revision 1.11 by kaz, Mon Feb 18 05:50:42 2002 UTC revision 1.12 by kaz, Mon Feb 18 06:14:22 2002 UTC
# Line 53  Line 53 
53                                       types :test #'equal))))))                                       types :test #'equal))))))
54    
55          ;; Write out types to file and allow user to edit.          ;; Write out types to file and allow user to edit.
56          (types-write types *mcvs-types* :comments *types-comments*)          (when types
57              (types-write types *mcvs-types* :comments *types-comments*)
58          (loop            (loop
59            (restart-case              (restart-case
60              (progn                (progn
61                (chatter-info "Editing types.~%")                  (chatter-info "Editing types.~%")
62                (edit-file *mcvs-types*)                  (edit-file *mcvs-types*)
63                (let ((edited-types (types-read *mcvs-types*)))                  (let ((edited-types (types-read *mcvs-types*)))
64                  (types-sanity-check edited-types)                    (types-sanity-check edited-types)
65                  (types-write edited-types *mcvs-types*)                    (types-write edited-types *mcvs-types*)
66                  (setf types edited-types))                    (setf types edited-types))
67                (return))                  (return))
68              (retry ()                (retry ()
69                :report "Correct file type treatment, try again.")                  :report "Correct file type treatment, try again.")
70              (restore-types ()                (restore-types ()
71                :report "Revert to original file treatment and edit again."                  :report "Revert to original file treatment and edit again."
72                (types-write types *mcvs-types* :comments *types-comments*))))                  (types-write types *mcvs-types* :comments *types-comments*)))))
73    
74          ;; User has edited, so now we must honor all of the :IGNORE          ;; User has edited, so now we must honor all of the :IGNORE
75          ;; entries in the types, and remove the matching files from the          ;; entries in the types, and remove the matching files from the

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5