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-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 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.l
View file

@ -1,21 +0,0 @@
(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)))))