From 811e6186555e26d933e5c43bbe017adcade0f95e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 15 Dec 2023 09:23:30 +0200 Subject: Revert changes on gnosis--ask-input --- gnosis.el | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 451eeca..bb95ff0 100644 --- a/gnosis.el +++ b/gnosis.el @@ -107,17 +107,15 @@ Example: (defun gnosis--ask-input (prompt) "PROMPT user for input until `q' is given. - - The user is prompted to provide input for the 'PROMPT' message, and - the returns the list of inputs in reverse order." - (let ((input-list nil) - (input "")) - (while (not (string= input "q")) - (setq input (read-string (concat prompt " (q for quit): "))) - (push input input-list)) - (when (string= (car input-list) "q") - (pop input-list)) - (nreverse input-list))) + +The user is prompted to provide input for the 'PROMPT' message, and +the returns the list of inputs in reverse order." + (let ((input nil)) + (while (not (equal (car input) "q")) + (push (read-string (concat prompt " (q for quit): ")) input)) + (when (equal (car input) "q") + (pop input)) + (reverse input))) (defun gnosis-add-deck (name) "Create deck with NAME." -- cgit v1.2.3