charset: replace delete character by symbol substitute
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 16 Feb 2015 16:42:34 +0000 (17:42 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Feb 2015 23:21:52 +0000 (00:21 +0100)
Like other ASCII control characters, represent U+007F by more readable
representation U+2421 SYMBOL FOR DELETE.

tools/mkcharinfo

index c6c8900..27c11d9 100755 (executable)
@@ -105,7 +105,9 @@ for my $chr (keys %info) {
                                ? '<'.$info->{unicode10}.'>'  # the old name was much more useful
                                : sprintf('<control U+%04X>', $cp);  # at least identify by value
                        # show descriptive symbols instead of control chars themselves
-                       $info->{string} = $cp < 32 ? chr($cp + 0x2400) : chr(0xFFFD);
+                       $info->{string} = $cp < 32   ? chr($cp + 0x2400) :
+                                         $cp == 127 ? chr(0x2421) :
+                                                      chr(0xFFFD);
                }
        }