From 28dc362c86d50044736ba7167f48003acabd8523 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 13 Oct 2025 13:47:12 -0700
Subject: [PATCH] Update KEYBOARDCONFIGS

Get F6/F10 to show/transmit characters
---
 library/virtualkeyboards/KEYBOARDCONFIGS | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

diff --git a/library/virtualkeyboards/KEYBOARDCONFIGS b/library/virtualkeyboards/KEYBOARDCONFIGS
index aae4e82f..e572a178 100644
--- a/library/virtualkeyboards/KEYBOARDCONFIGS
+++ b/library/virtualkeyboards/KEYBOARDCONFIGS
@@ -1,17 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 6-Jul-2023 13:18:46" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;3
 59739  
+
(FILECREATED "13-Oct-2025 13:44:47" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;5
 59521  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS KEYBOARDCONFIGSCOMS)
+      :PREVIOUS-DATE "13-Oct-2025 12:03:23" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;4)
 
-      :PREVIOUS-DATE " 7-Feb-97 12:13:28" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;1)
-
-
-(* ; "
-Copyright (c) 1996-1997 by Xerox Corporation.
-")
 
 (PRETTYCOMPRINT KEYBOARDCONFIGSCOMS)
 
@@ -63,11 +57,11 @@ Copyright (c) 1996-1997 by Xerox Corporation.
         (F3 (F3 ITALIC))
         (F4 (F4 UCASE))
         (F5 (F5 STRIKE))
-        (F6 (F6 UNDER))
+        (F6 (F6 "­"))
         (F7 (F7 SUBSCR))
         (F8 (F8 SMALL))
         (F9 (F9 MARGIN))
-        (F10 (F10 LOOKS))
+        (F10 (F10 "¬"))
         (F11 (F11 ""))
         (F12 (F12 ""))
         (LOCK ("CAPS" "LOCK"))
@@ -280,11 +274,11 @@ Copyright (c) 1996-1997 by Xerox Corporation.
               (F3 (ITALIC NOTITALIC NLS))
               (F4 (UCASE LCASE NLS))
               (F5 (STRIKEOUT NOTSTRIKEOUT NLS))
-              (F6 (UNDERLINE NOTUNDERLINE NLS))
+              (F6 ("­" "­" NLS))
               (F7 (SUBSCRIPT SUPERSCRIPT NLS))
               (F8 (SMALLER LARGER NLS))
               (F9 (MARGINS NOTMARGINS NLS))
-              (F10 (LOOKS NOTLOOKS NLS))
+              (F10 ("¬" "¬" NLS))
               (F11 (F11 NOTF11 NLS))
               (F12 (F12 NOTF12 NLS)))
              ((%` 45 B)
@@ -1270,11 +1264,11 @@ Copyright (c) 1996-1997 by Xerox Corporation.
                   (F3 (ITALIC NOTITALIC NLS))
                   (F4 (UCASE LCASE NLS))
                   (F5 (STRIKEOUT NOTSTRIKEOUT NLS))
-                  (F6 (UNDERLINE NOTUNDERLINE NLS))
+                  (F6 ("­" "­" NLS))
                   (F7 (SUBSCRIPT SUPERSCRIPT NLS))
                   (F8 (SMALLER LARGER NLS))
                   (F9 (MARGINS NOTMARGINS NLS))
-                  (F10 (LOOKS NOTLOOKS NLS))
+                  (F10 ("¬" "¬" NLS))
                   (F11 (F11 NOTF11 NLS))
                   (F12 (F12 NOTF12 NLS)))
                  ((%' 28 B)
@@ -1803,7 +1797,6 @@ Copyright (c) 1996-1997 by Xerox Corporation.
                  23130
                  (CLASSIC 10)
                  NIL))
-(PUTPROPS KEYBOARDCONFIGS COPYRIGHT ("Xerox Corporation" 1996 1997))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP