aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/Keyboard-input-Keypress-check/Emacs-Lisp/keyboard-input-keypress-check.el Normal file
View file

@ -0,0 +1,21 @@
(defun store-keypress ()
"If a key has been pressed, store it as a variable.
Note that the variable created is a variable inside the scope of let and
will not be available as a variable outside the scope of let. However,
the function also returns the value of the variable, which can be used
outside the scope of let."
(let ((keypress))
(if (input-pending-p)
(setq keypress (char-to-string (read-key))))))
(defun store-keypress-multiple ()
"If one or more keys have been pressed, store it/them as a variable.
Note that the variable created is a variable inside the scope of let and
will not be available as a variable outside the scope of let. However,
the function also returns the value of the variable, which can be used
outside the scope of let."
(let ((keypress))
(while (input-pending-p)
(push (read-key) keypress))
(setq keypress (concat (nreverse keypress)))))