Change bucky-bit prefixes to prefer upper-case for output.

Also make sure that upper-case is accepted when case-folding is off.

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index aee5937672fefac747e0c092c3f58e97025fe55b..d4aac5b264bb95904ec38959384fcea87728223a 100644 (file)
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -295,10 +295,10 @@ USA.
 (define char-bit:hyper #x08)
 
 (define named-bits
-  `((,char-bit:hyper "h-" "hyper-")
-    (,char-bit:super "s-" "super-")
-    (,char-bit:meta "m-" "meta-")
-    (,char-bit:control "c-" "control-" "ctrl-")))
+  `((,char-bit:hyper "H-" "h-" "hyper-")
+    (,char-bit:super "S-" "s-" "super-")
+    (,char-bit:meta "M-" "m-" "meta-")
+    (,char-bit:control "C-" "c-" "control-" "ctrl-")))
 \f
 (define (match-named-code string fold-case?)
   (let ((match? (if fold-case? ustring-ci=? ustring=?)))