(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)


(FILECREATED "21-Oct-2025 08:40:16" {WMEDLEY}<lispusers>WHICHKEY.;5
 1172   

      :EDIT-BY rmk

      :CHANGES-TO (FNS DOWNP)

      :PREVIOUS-DATE "12-Oct-2025 20:53:41" {WMEDLEY}<lispusers>WHICHKEY.;4)


(PRETTYCOMPRINT WHICHKEYCOMS)

(RPAQQ WHICHKEYCOMS
 ((FNS DOWNP WHICHKEY)))
(DEFINEQ

(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")


                                                             (* ; "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 as
 I from
 0 when
 (KEYDOWNP (CAR X)) collect
 (LIST I X])
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (365 1149 (DOWNP 375 . 548) (WHICHKEY 550 . 1147)))))
STOP