WHICHKEY returns the keynumber as well as the keyname, for convenience (#2322)

WHICHKEY returns the keynumber as well as the keyname, for convenience

* Added documentation

Author: rmkaplan

lispusers/WHICHKEY

@@ -1,28 +1,32 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Jan-2025 15:47:23" {WMEDLEY}<lispusers>WHICHKEY.;3
 1037   
+
(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:46:57" {WMEDLEY}<lispusers>WHICHKEY.;2)
+      :PREVIOUS-DATE "12-Oct-2025 20:53:41" {WMEDLEY}<lispusers>WHICHKEY.;4)
 
 
 (PRETTYCOMPRINT WHICHKEYCOMS)
 
 (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 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 (365 1149 (DOWNP 375 . 548) (WHICHKEY 550 . 1147)))))
 STOP