github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

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

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

* Added documentation
This commit is contained in:
rmkaplan 2025-10-27 11:21:46 -07:00 committed by GitHub
parent 1ff49b58fe
commit 87b3ee3134
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lispusers/WHICHKEY
View File

@ -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 "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)
@ -14,15 +14,19 @@
(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

BIN
lispusers/WHICHKEY.TEDIT Normal file
View File

Binary file not shown.