From f219665c5f6e0b934ca685cce7ab2d16b878916c Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 20 Oct 2025 23:47:13 -0700
Subject: [PATCH 1/2] Update WHICHKEY

WHICHKEY returns the keynumber as well as the keyname, for convenience
---
 lispusers/WHICHKEY | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lispusers/WHICHKEY b/lispusers/WHICHKEY
index 6b79b9d89..bce7d5e77 100644
--- a/lispusers/WHICHKEY
+++ b/lispusers/WHICHKEY
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Jan-2025 15:47:23" {WMEDLEY}<lispusers>WHICHKEY.;3
 1037   
+
(FILECREATED "12-Oct-2025 20:53:41" {WMEDLEY}<lispusers>WHICHKEY.;4
 1174   
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS WHICHKEY)
 
-      :PREVIOUS-DATE "23-Jan-2025 15:46:57" {WMEDLEY}<lispusers>WHICHKEY.;2)
+      :PREVIOUS-DATE "23-Jan-2025 15:47:23" {WMEDLEY}<lispusers>WHICHKEY.;3)
 
 
 (PRETTYCOMPRINT WHICHKEYCOMS)
@@ -17,12 +17,13 @@
 (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")


+  [LAMBDA (DELAY)
                                            (* ; "Edited 12-Oct-2025 11:52 by rmk")


+                                                             (* ; "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])
+           (for
 X IN
 \KEYNAMES as
 I from
 0 when
 (KEYDOWNP (CAR X)) collect
 (LIST I X])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (368 1014 (DOWNP 378 . 550) (WHICHKEY 552 . 1012)))))
+  (FILEMAP (NIL (368 1151 (DOWNP 378 . 550) (WHICHKEY 552 . 1149)))))
 STOP

From 737921f18cf73437977763cb4f890fca048af856 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 21 Oct 2025 08:43:07 -0700
Subject: [PATCH 2/2] Added documentation

---
 lispusers/WHICHKEY       |  13 ++++++++-----
 lispusers/WHICHKEY.TEDIT | Bin 0 -> 3197 bytes
 2 files changed, 8 insertions(+), 5 deletions(-)
 create mode 100644 lispusers/WHICHKEY.TEDIT

diff --git a/lispusers/WHICHKEY b/lispusers/WHICHKEY
index bce7d5e77..946eb638d 100644
--- a/lispusers/WHICHKEY
+++ b/lispusers/WHICHKEY
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Oct-2025 20:53:41" {WMEDLEY}<lispusers>WHICHKEY.;4
 1174   
+
(FILECREATED "21-Oct-2025 08:40:16" {WMEDLEY}<lispusers>WHICHKEY.;5
 1172   
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS WHICHKEY)
+      :CHANGES-TO (FNS DOWNP)
 
-      :PREVIOUS-DATE "23-Jan-2025 15:47:23" {WMEDLEY}<lispusers>WHICHKEY.;3)
+      :PREVIOUS-DATE "12-Oct-2025 20:53:41" {WMEDLEY}<lispusers>WHICHKEY.;4)
 
 
 (PRETTYCOMPRINT WHICHKEYCOMS)
@@ -14,7 +14,10 @@
 (RPAQQ WHICHKEYCOMS
 ((FNS DOWNP WHICHKEY)))
 (DEFINEQ
 
-(DOWNP

  [LAMBDA (KEYNAME)
                                     (* ; "Edited 19-May-2018 20:03 by rmk:")

    (PROGN (DISMISS 2000)
           (KEYDOWNP KEYNAME])
+(DOWNP

+  [LAMBDA (KEYNAME DELAY)
                                    (* ; "Edited 21-Oct-2025 08:37 by rmk")

+    (DISMISS (OR DELAY 3000))
+    (KEYDOWNP KEYNAME])
 
 (WHICHKEY

   [LAMBDA (DELAY)
                                            (* ; "Edited 12-Oct-2025 11:52 by rmk")


@@ -25,5 +28,5 @@
            (for
 X IN
 \KEYNAMES as
 I from
 0 when
 (KEYDOWNP (CAR X)) collect
 (LIST I X])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (368 1151 (DOWNP 378 . 550) (WHICHKEY 552 . 1149)))))
+  (FILEMAP (NIL (365 1149 (DOWNP 375 . 548) (WHICHKEY 550 . 1147)))))
 STOP
diff --git a/lispusers/WHICHKEY.TEDIT b/lispusers/WHICHKEY.TEDIT
new file mode 100644
index 0000000000000000000000000000000000000000..b98ad1b7c1157d813ff50db7180589f8a802bff9
GIT binary patch
literal 3197
zcmeHJO>f&q5M5b{1JnIL&%I3394H`AC0YJRTA-k*mBpGO6_SeM6g|-5DrPH@0!i6*
zFTJP#sHYxt?2qXW=**H-lvuH2paps;EmOO*Z{EC_S*|z`!Bkvro%9X8f6PynwxV<t
zrKKoK3y#rpcm+-z!LdJ|`jO(DhbaW{crg=E2A6&cQ$Ni>1Ysru2qUn^S$rlEfOfOJ
z+fZ_cNjMb{h)EcU6tc@0vLw9lr!ZMW<1CD$^bwR%!H)vy+9%eqp{Pq^mz&yYee3&P
z;qb#!B_twSBvA@J%>6I{^(S!^EoLNvM*d9HVH_ukNat}BgwadLF#NfINtmE;#E@z-
z;P5Q=lK{o}Q5upi$ow-@o}K#{$h<Ej@Fy8^OF=LTr_(SMV`NU@+`kYYex8Sk2pRw$
zQs$_a;RU6Q^F@lTSvW(=7zJRalx-m9C@)8lo;*T!H7B)&xMd|U0D(yyF8L8g6k`mR
zhr$~Bi)n^jG3+#(O<Y)dmW8qm6T%5Zah^Q2^M<sr3$h!4d&JTPJP-6%E1aSO9??<)
zCG@tE;r6hj>6I)^8ZVMDbp`7^iIX?7kz}647hxcRM}$lSwF1?T<Jlb1f%Iu8jIOHc
z@~0zi=^Q9c`d6DE|LUNsL+vPEz|oL9uJM9{DKcuP>uHW>SVsi;QaYNN)pd2meJiIu
z+ca#$>e--bj&^A1@ZbS{>c~s{d#yI?KW<Z$KG(X)lt(Wn-szBoGqNmPAQR#aI<VjA
zz;62hcJ}IoMx)1{d(u%#N66zn=<M#nUbC4)D4u3|+_5z8&PiU&VU2o;$+ZtLQPZ}M
zT~MEnv@Yn}!oVEG>wV2BR@@O)Qg@7@hh;FVXNGGWnjGw24_t0?-5X-rJUJgawuc7Z
z%~z@XttRxefnlD)!0uvJU_axIX;=k;=NQM_9_8*M3lYmT{(Pueu3=l?@S~BbIpCT$
zRk@g*aO0@&!GL#-(SU?;r;I#uxg%RiRd&5olq<{Mvz>v4yWmZesX(p$4t5CI2dj<x
z*PDF9Uj4s~`3Cy$x3P|wJecmW`>Z8L#jRRl4_D{w#vL+NUZX31Rcq{FrSiJ64!B|~
zeLlK_j}(S+K0}{cwR*d-7JJ2BRSsm>8VOqwuy$BFY<_5j?}!E^$?Kiex9QO+o<Fv|
za;WC$HTN3ZWM8q({DfioPsQgd9b$MQ4e@x>ZPRw30f(lhAIp|C*?ryAT-VS)41X7T
z?BQMD8>?{YD`Pi_NB9m?JY&FJ#~x@_(Vbgdh;>8mH0lx7i{*Le`z>GDU=_CAcSa^}
z9C5E_5m2s|pnGWeXFwExi};C>NXhVC>JoHg{1Q|{rca2pRE-5=&36rQk)U~4#=coa
zRB<A=5y2!eS!8d>BAv-X&P4w!4d23kam_NhX3?%$J}oUoOaYdLrHGGLArzaQY8ji3
zk@q+)X-dH|19>YlFiI9_tg5Q2n_P2nAK)(}JxTb|Wy{x|1`KrF#e+{iTTjrh(ZzR_
SCqMr2*KbJwC;R%B-~R@*y?tK*

literal 0
HcmV?d00001