wip

XmacsLabs · Oct 12, 2024 · f99fe74 · f99fe74
1 parent adb4f98
commit f99fe74
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/TeXmacs/langs/encoding/herktounicode.scm b/TeXmacs/langs/encoding/herktounicode.scm
@@ -31,7 +31,7 @@
 ("#14"	"#BB")
 ("#15"	"#2013")
 ("#16"	"#2014")
-("#17"	"#2060")
+("#17"	"#200B")
 ("#18" "#2080")
 ("#19"	"#0131")
 ("#1A" "#0237")
@@ -135,7 +135,7 @@
 ("#7C"	"#7C")
 ("#7D"	"#7D")
 ("#7E"	"#7E")
-("#7F"	"#2010")
+("#7F"	"#00AD")
 ("#80"	"#0102")
 ("#81"	"#0104")
 ("#82"	"#0106")

diff --git a/TeXmacs/tests/66_13.scm b/TeXmacs/tests/66_13.scm
@@ -49,7 +49,7 @@
   (check (herk->utf8 (string #\x14)) => "»") ; U+00BB
   (check (herk->utf8 (string #\x15)) => "–") ; U+2013
   (check (herk->utf8 (string #\x16)) => "—") ; U+2014
-  (check (herk->utf8 (string #\x17)) => (utf8->string #u8(#xE2 #x81 #xA0))) ; U+2060
+  (check (herk->utf8 (string #\x17)) => (utf8->string #u8(#xE2 #x80 #x8B))) ; U+200B
   (check (herk->utf8 (string #\x18)) => "₀") ; U+2080
   (check (herk->utf8 (string #\x19)) => "ı") ; U+0131
   (check (herk->utf8 (string #\x1A)) => "ȷ") ; U+0237
@@ -190,7 +190,7 @@
   (check (herk->utf8 (string #\x7C)) => "|")
   (check (herk->utf8 (string #\x7D)) => "}")
   (check (herk->utf8 (string #\x7E)) => "~")
-  (check (herk->utf8 (string #\x7F)) => "‐") ; U+2010
+  (check (herk->utf8 (string #\x7F)) => (utf8->string #u8(#xC2 #xAD))) ; U+00AD
 )
 
 (define (test-herk-8x)