From 634c67646fdf4872c719adfd228dc065d5911f3d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 3 Aug 2003 05:52:54 +0000
Subject: [PATCH] Use upper case for bucky-bit prefixes.

---
 v7/src/runtime/char.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/runtime/char.scm b/v7/src/runtime/char.scm
index acf9c1fad..2e65d2d33 100644
--- a/v7/src/runtime/char.scm
+++ b/v7/src/runtime/char.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: char.scm,v 14.22 2003/07/31 02:49:33 cph Exp $
+$Id: char.scm,v 14.23 2003/08/03 05:52:54 cph Exp $
 
 Copyright 1986,1987,1988,1991,1995,1997 Massachusetts Institute of Technology
 Copyright 1998,2001,2003 Massachusetts Institute of Technology
@@ -352,7 +352,7 @@ USA.
     (#x7F "delete" "del" "rubout")))
 
 (define named-bits
-  '((#x01 "m" "meta")
-    (#x02 "c" "control" "ctrl")
-    (#x04 "s" "super")
-    (#x08 "h" "hyper")))
\ No newline at end of file
+  '((#x01 "M" "meta")
+    (#x02 "C" "control" "ctrl")
+    (#x04 "S" "super")
+    (#x08 "H" "hyper")))
\ No newline at end of file
-- 
2.25.1