/[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.3 by kaz, Mon Nov 4 02:07:35 2002 UTC revision 1.13.2.4 by kaz, Fri Dec 27 23:43:42 2002 UTC
# Line 126  of strings." Line 126  of strings."
126      (when (or version version-long)      (when (or version version-long)
127        (let* ((vers (split-words "$Name$" "$:- "))        (let* ((vers (split-words "$Name$" "$:- "))
128               (major (third vers))               (major (third vers))
129               (minor (fourth vers)))               (minor (fourth vers))
130          (if (and major minor)               (patch (fifth vers)))
131            (format t "Meta-CVS version ~a.~a (c) 2002 Kaz Kylheku~%"          (if (and major minor patch)
132                    major minor)            (format t "Meta-CVS version ~a.~a.~a (c) 2002 Kaz Kylheku~%"
133                      major minor patch)
134            (format t "Meta-CVS unknown version (c) 2002 Kaz Kylheku~%"))            (format t "Meta-CVS unknown version (c) 2002 Kaz Kylheku~%"))
135          (throw 'mcvs-terminate nil)))          (throw 'mcvs-terminate nil)))
136      (when editor      (when editor

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

  ViewVC Help
Powered by ViewVC 1.1.5