solarpunk-guile/guile-uniseg
3
0
Fork 0
Code Issues Pull requests Releases 2 Activity

remove the pks!

Browse source
This commit is contained in:
Vivianne 2024-03-02 14:02:32 -05:00
parent 5b440bbb64
commit 1271d86782
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runewidth/eastasian/locale.scm
View file

@ -52,9 +52,6 @@
(match:substring locale-match 2))) (match:substring locale-match 2)))
locale))) locale)))
(pk locale)
(pk charset)
(and (and
(not (regexp-exec c-or-posix-regexp locale)) (not (regexp-exec c-or-posix-regexp locale))
(not (string-suffix? "@cjk_narrow" charset)) (not (string-suffix? "@cjk_narrow" charset))
@ -63,9 +60,6 @@
(when index-@ (when index-@
(set! charset (substring charset 0 index-@))) (set! charset (substring charset 0 index-@)))
(pk charset)
(pk locale)
(and (member charset wide-locales) (and (member charset wide-locales)
(or (or
(not (eq? #\u (string-ref charset 0))) (not (eq? #\u (string-ref charset 0)))