WHICHKEY

(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