From eb98df8fef94944b7b479387e27232beab5e869d Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Wed, 16 Jun 2010 10:31:14 +0000
Subject: [Bug 3016135] traceback using clock format with locale of he_IL

---
 ChangeLog           | 5 +++++
 library/msgs/he.msg | 4 ++--
 tools/loadICU.tcl   | 4 ++--
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f2139ea..f1e09f3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-16  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* tools/loadICU.tcl    [Bug 3016135] traceback using clock format with
+	* library/msgs/he.msg  locale of he_IL
+
 2010-06-14  Jan Nijtmans  <nijtmans@users.sf.net>
 
 	* unix/Makefile.in     Fix compilation of xttest with 8.6 changes
diff --git a/library/msgs/he.msg b/library/msgs/he.msg
index 52a94e2..4fd921d 100755
--- a/library/msgs/he.msg
+++ b/library/msgs/he.msg
@@ -44,8 +44,8 @@ namespace eval ::tcl::clock {
         "\u05e0\u05d5\u05d1\u05de\u05d1\u05e8"\
         "\u05d3\u05e6\u05de\u05d1\u05e8"\
         ""]
-    ::msgcat::mcset he BCE "\u05dc\u05e1\u05d4"\u05e0"
-    ::msgcat::mcset he CE "\u05dc\u05e4\u05e1\u05d4"\u05e0"
+    ::msgcat::mcset he BCE "\u05dc\u05e1\u05d4\u0022\u05e0"
+    ::msgcat::mcset he CE "\u05dc\u05e4\u05e1\u05d4\u0022\u05e0"
     ::msgcat::mcset he DATE_FORMAT "%d/%m/%Y"
     ::msgcat::mcset he TIME_FORMAT "%H:%M:%S"
     ::msgcat::mcset he DATE_TIME_FORMAT "%d/%m/%Y %H:%M:%S %z"
diff --git a/tools/loadICU.tcl b/tools/loadICU.tcl
index da0e134..8bf0d72 100755
--- a/tools/loadICU.tcl
+++ b/tools/loadICU.tcl
@@ -26,7 +26,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: loadICU.tcl,v 1.3 2007/04/20 02:23:35 kennykb Exp $
+# RCS: @(#) $Id: loadICU.tcl,v 1.4 2010/06/16 10:31:15 nijtmans Exp $
 #
 #----------------------------------------------------------------------
 
@@ -591,7 +591,7 @@ proc backslashify { string } {
     set retval {}
     foreach char [split $string {}] {
 	scan $char %c ccode
-	if { $ccode >= 0x0020 && $ccode < 0x007f
+	if { $ccode >= 0x0020 && $ccode < 0x007f && $char ne "\"" 
 	     && $char ne "\{" && $char ne "\}" && $char ne "\["
 	     && $char ne "\]" && $char ne "\\" && $char ne "\$" } {
 	    append retval $char
-- 
cgit v0.12