Move WHEELSCROLL.xxx characters to Function character set (#2087)

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