chr-iscntrl: recognize Unicode C0 and C1.

* lib.c (chr_iscntrl): Don't use iswcntrl; it fails to report
0x80-0x9F as control characters. A bit of hand-crafted logic
does the job.

* txr.1: Redocumented.

1 files changed, 7 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 11ad76b5..38837e43 100644
--- a/lib.c
+++ b/lib.c
@@ -5897,7 +5897,13 @@ val chr_isascii(val ch)
 
 val chr_iscntrl(val ch)
 {
-  return tnil(iswcntrl(c_chr(ch)));
+  wchar_t c = c_chr(ch);
+  switch ((c >> 5)) {
+  case 0: case 4:
+    return t;
+  default:
+    return tnil(c == 0x7F);
+  }
 }
 
 val chr_isdigit(val ch)