awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix infinite loop on invalid answer to straight prompts

Browse Source
This commit is contained in:
Henrik Lissner
2019-11-14 02:37:24 -05:00
parent 2a01a9dcdf
commit 6599388f00
1 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
core/core-packages.el
View File

@ -161,15 +161,20 @@ missing) and shouldn't be deleted.")
(push func options)
(print! "%2s) %s" (length options) desc)))))
(terpri)
(let ((answer
(read-number (format! "How to proceed? (%s) "
(mapconcat #'number-to-string
(number-sequence 1 (length options))
", "))))
fn)
(setq options (nreverse options))
(while (not (setq fn (nth (1- answer) options)))
(print! "%s is not a valid answer, try again." answer))
(let ((options (nreverse options))
answer fn)
(while
(not
(setq
fn (ignore-errors
(nth (1- (setq answer
(read-number
(format! "How to proceed? (%s) "
(mapconcat #'number-to-string
(number-sequence 1 (length options))
", ")))))
options))))
(print! (warn "%s is not a valid answer, try again.") answer))
(funcall fn))))))