From d9090011d4229bdb23b0bb66d2528245976a22d0 Mon Sep 17 00:00:00 2001
From: rmkaplan <69548581+rmkaplan@users.noreply.github.com>
Date: Mon, 27 Jan 2025 11:54:09 -0800
Subject: [PATCH] Add WHICHKEY to lispusers/ (#1987)

* WHICHKEY

* WHICHKEY collects all down keys
---
 lispusers/WHICHKEY | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 lispusers/WHICHKEY

diff --git a/lispusers/WHICHKEY b/lispusers/WHICHKEY
new file mode 100644
index 00000000..6b79b9d8
--- /dev/null
+++ b/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