| author | Camm Maguire <camm@debian.org> | 2014年11月04日 16:20:55 -0500 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年11月04日 16:20:55 -0500 |
| commit | c21ba1382df7bea85f024f4df16ca2ab66513d48 (patch) | |
| tree | 8b2ca6d6dddd25fe1242b8855800e83759e3e6b2 | |
| parent | 467628aab21ed633af4e561785e25379a9ba61dd (diff) | |
| download | gcl-c21ba1382df7bea85f024f4df16ca2ab66513d48.tar.gz | |
| -rwxr-xr-x | gcl/o/character.d | 4 |
diff --git a/gcl/o/character.d b/gcl/o/character.d index 6d5f1b5b0..7f714dc60 100755 --- a/gcl/o/character.d +++ b/gcl/o/character.d @@ -65,7 +65,7 @@ Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. if (char_font(c) != 0 || char_bits(c) != 0) @(return Cnil) i = char_code(c); - if (isalpha(i)) + if (isalpha(i)||i>=128) @(return Ct) else @(return Cnil) @@ -142,7 +142,7 @@ int i, r; if (char_font(c) != 0 || char_bits(c) != 0) @(return Cnil) i = char_code(c); - if (isalphanum(i)) + if (isalphanum(i)||i>=128) @(return Ct) else @(return Cnil) |