Add WHICHKEY to lispusers/ (#1987)

* WHICHKEY

* WHICHKEY collects all down keys

lispusers/WHICHKEY

@@ -0,0 +1,28 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "23-Jan-2025 15:47:23" {WMEDLEY}<lispusers>WHICHKEY.;3
 1037   
+
+      :EDIT-BY rmk
+
+      :CHANGES-TO (FNS WHICHKEY)
+
+      :PREVIOUS-DATE "23-Jan-2025 15:46:57" {WMEDLEY}<lispusers>WHICHKEY.;2)
+
+
+(PRETTYCOMPRINT WHICHKEYCOMS)
+
+(RPAQQ WHICHKEYCOMS
 ((FNS DOWNP WHICHKEY)))
+(DEFINEQ
+
+(DOWNP
  [LAMBDA (KEYNAME)
                                     (* ; "Edited 19-May-2018 20:03 by rmk:")
    (PROGN (DISMISS 2000)           (KEYDOWNP KEYNAME])
+
+(WHICHKEY

+  [LAMBDA (DELAY)
                                            (* ; "Edited 23-Jan-2025 15:44 by rmk")


+                                                             (* ; "Edited  4-Dec-2023 16:04 by rmk")


+                                                            (* ; "Edited 18-May-2018 13:09 by rmk:")

+    (PROGN (DISMISS (OR DELAY 3000))
+           (for
 X IN
 \KEYNAMES when
 (KEYDOWNP (CAR X)) collect
 X])
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (368 1014 (DOWNP 378 . 550) (WHICHKEY 552 . 1012)))))
+STOP