From b0c00e0636ffd63ce039182fbac0507a52557fd2 Mon Sep 17 00:00:00 2001
From: rmkaplan <69548581+rmkaplan@users.noreply.github.com>
Date: Mon, 31 Mar 2025 11:44:19 -0700
Subject: [PATCH] Move WHEELSCROLL.xxx characters to Function character set
 (#2087)

---
 lispusers/WHEELSCROLL      |  18 +++++++++---------
 lispusers/WHEELSCROLL.LCOM | Bin 4694 -> 4729 bytes
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lispusers/WHEELSCROLL b/lispusers/WHEELSCROLL
index 59317874..38de5c08 100644
--- a/lispusers/WHEELSCROLL
+++ b/lispusers/WHEELSCROLL
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Mar-2025 18:23:44" {WMEDLEY}<lispusers>WHEELSCROLL.;36
 10917  
+
(FILECREATED "29-Mar-2025 20:15:01" {WMEDLEY}<lispusers>WHEELSCROLL.;39
 10966  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS WHEELSCROLL)
+      :CHANGES-TO (VARS WHEELSCROLLCOMS)
 
-      :PREVIOUS-DATE "15-Mar-2025 11:36:27" {WMEDLEY}<lispusers>WHEELSCROLL.;35)
+      :PREVIOUS-DATE "16-Mar-2025 18:23:44" {WMEDLEY}<lispusers>WHEELSCROLL.;36)
 
 
 (PRETTYCOMPRINT WHEELSCROLLCOMS)
@@ -191,10 +191,10 @@
 )

 
 
-(ADDTOVAR CHARACTERNAMES
 (WHEELSCROLL-UP 156)
-                         (WHEELSCROLL-DOWN 157)
-                         (WHEELSCROLL-LEFT 158)
-                         (WHEELSCROLL-RIGHT 159))
+(ADDTOVAR CHARACTERNAMES
 (WHEELSCROLL-UP "Function,234")
+                         (WHEELSCROLL-DOWN "Function,235")
+                         (WHEELSCROLL-LEFT "Function,236")
+                         (WHEELSCROLL-RIGHT "Function,237"))
 
 (RPAQ? WHEELSCROLLENABLED
 NIL)
 
@@ -212,6 +212,6 @@
 (ENABLEWHEELSCROLL
 T)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1462 9850 (ENABLEWHEELSCROLL 1472 . 4458) (WHEELSCROLL 4460 . 8008) (WHEELSCROLL.DOIT 
-8010 . 8646) (INSTALL-WHEELSCROLL 8648 . 9848)))))
+  (FILEMAP (NIL (1467 9855 (ENABLEWHEELSCROLL 1477 . 4463) (WHEELSCROLL 4465 . 8013) (WHEELSCROLL.DOIT 
+8015 . 8651) (INSTALL-WHEELSCROLL 8653 . 9853)))))
 STOP
diff --git a/lispusers/WHEELSCROLL.LCOM b/lispusers/WHEELSCROLL.LCOM
index a6a81c0993011ca97bb03b8aca0972cc62fbb74b..d0a0cdc1533c206c77dc653a58df3b5e1f04976d 100644
GIT binary patch
delta 964
zcmZuwO>YuW6lEy12FC^3x<C_eM~qA&IPbmrV9*4|;Zcaw860Lxnz$$_el#jH1{bdQ
z3D&%2ZDaib#<okh{)R40-1`^Y`6wXMmRX&9@3|)@_q;jD{>|>R7O|OMZNJN71#5tn
z64FYF{^_+kFl9(dSf36NDJi&wixTuVdvCYj-0i?t7o=+FI1uF(3Iz!|?f&x)%-APH
zl2f^A-J!Nmt$<cI>7oN9u_NL3f(b}5b)9VpH?wP&--K3;Qm1MAp5xfwYEy<%!>4O?
zFKp&3T#Vfk9<USPL+Zs`JQjcS^)U8}t;d%eA3H)iEm%j(FJt`c#y`KxWX5oh!``r)
z$$W3m9*?{G(<SyZZVTJ&(%iR!s=^bxZrMTIbAezZS|KG;VUt8FRfoD8P~Q(5fnBqF
zzy!hlMi^Mlrf2gcjB|5jMAeW!BBzFIeo&%mtejYSNC-5niUx!eI8Xtb<`7`OMLYzE
zXQjil3awh96HKjR9kHFn(tywG(D$huonbY4dBCU`t*L80c6g9TCs1E;J)Z(n%_&6x
zA<{<fkfM&<@td5Qn|RX&%<d#N*kN+9LNJ2dSg$aakb&^ki(OnaW^@g5{5yGdUdqRW
z)6_>fcjJ2#us;Fpig-g%*@1YSmBnj<Hb$4{We8+I?28BsLzn{N_(0rE45aG&?q+|h
z*S&{{D#?(Gyv%&XYq|W#m@>2>BNe4Mv>KeD=;uZJ`bzCA#gJs4wBN9vmf4@Q$ad2|
F{sDyv?X3U+

delta 958
zcmZuw&ubGw6wanL&?OWj5hVzH4H2@3#C@|rvtC>`v(4&e6E+*G5TUg#TCBEK5f4JI
zdQ;|VD|qu#)E@e8^dO%76TFHSXR{#=l7-#xd*AypZ|2SZuKlRJTP>s6=&tWKh)N7V
z+aa2x>+c`y2c`mYRdlMV!~JMg;lcja#_p57?VYVn*m||M|NN>0s~t+iffx6}5VoH}
z)gN*qrZ=0-Dr~O5;5oDE609n6-48<Q#nerx)Mjs_>jglyg%;~bR}4QIh^r{z^kaG_
z=nV&rHcx;m8p2M{(M*R}>`1CD7>Z0I_hv}hulbAYr!<n+=JL7xjZa^5-<h9ZzV&uf
zDwQPn+tR}ve|A1Rs#G#|$k}eHRVrWZ&vItk(KLab<~`{p`;$LD&}_I(@3~$Q^dis*
zik7Mi7O^eS(p3negvRl(pLiWN2Er$Etv^iM!Jy{>QSm=NnqoCHvtT)m=0~dOEryHb
z1C3bFciRSNsHQ{*($Z2wfLLZq5QwS5s7-x$7$*OECx!tduh;FmQCn1btT&8f8i}!J
zi$el}B(s^dxJc2kAXtfdF$L7MDb<WA&3fZEQJpl|8Y2OFj0h&O%kyh@3DhTrnv-0G
zZ_JpXl9oM7wQ+`O;mO(jg@U8xr1TnOlixX<;L!v>X2@q=schuV=b|8#)3*+q%Alx7
zgnyR{3M2|3TPj{+$Hj%QDFb^}gp<?a>vMBxn9MDedDE5xb>a7Egw#&}4V%ldsK>!d
LCv~*g=hE3<qEqPw