diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 02:23:30 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 02:23:30 (GMT) |
| commit | 41da80ee66a3a7325bde6e0e8e661a066a932c2b (patch) | |
| tree | e0126d39453c1ccf075ec3d566184e702106c624 /library/clock.tcl | |
| parent | 7ea39f0edbf37288e5738891d6c8b405bf19dd34 (diff) | |
| download | tcl-41da80ee66a3a7325bde6e0e8e661a066a932c2b.zip tcl-41da80ee66a3a7325bde6e0e8e661a066a932c2b.tar.gz tcl-41da80ee66a3a7325bde6e0e8e661a066a932c2b.tar.bz2 | |
* doc/clock.n: Corrected a silly error (transposed 'uppercase'
and 'lowercase' in clock.n. [Bug 1656002]
Clarified that [clock scan] does not recognize a locale's
alternative calendar.
* library/clock.tcl: Corrected an error in skipping over the
%Ey field on input.
* library/msgs/ja.msg:
* tools/loadICU.tcl: Corrected several localisation faults in
the Japanese locale (most notably, incorrect dates for the
Emperors' eras). [Bug 1637471]. Many thanks to SourceForge
user 'nyademo' for pointing this out and developing a fix.
* generic/tclPathObj.c: Corrected a 'const'ness fault that
caused bitter complaints from MSVC.
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 682b019..dfc5d73 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.tcl,v 1.42 2007/04/17 20:33:27 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.43 2007/04/20 02:23:31 kennykb Exp $ # #---------------------------------------------------------------------- @@ -1893,7 +1893,6 @@ proc ::tcl::clock::ParseClockScanFormat {formatString locale} { } foreach { regex lookup } [UniquePrefixRegexp $d] break append re (?: $regex ) - } E { set l {} @@ -1915,7 +1914,7 @@ proc ::tcl::clock::ParseClockScanFormat {formatString locale} { foreach {regex lookup} \ [LocaleNumeralMatcher $locale] break append re $regex - incr fieldCount + incr captureCount } default { append re %E |