From ececa1d3b24dc4298b831675f597a4a84a14e69a Mon Sep 17 00:00:00 2001
From: Pietro Cerutti <gahr@gahr.ch>
Date: Mon, 6 Dec 2021 07:56:17 +0000
Subject: Handle fullwidth characters

---
 parse-unidata.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parse-unidata.tcl')

diff --git a/parse-unidata.tcl b/parse-unidata.tcl
index 17e2e30..c87cc64 100644
--- a/parse-unidata.tcl
+++ b/parse-unidata.tcl
@@ -119,7 +119,7 @@ if {$do_width} {
 	while {[gets $f buf] >= 0} {
 		# Remove any trailing whitespace, especially errant CR
 		set buf [string trim $buf]
-		if {[regexp {^([0-9A-Fa-f.]+);W} $buf -> range]} {
+		if {[regexp {^([0-9A-Fa-f.]+);[FW]} $buf -> range]} {
 			set range [string tolower $range]
 			lassign [split $range .] lower - upper
 			if {$upper eq ""} {
-- 
cgit v1.1