mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Tweak while-let definition

Browse Source 
* lisp/subr.el (while-let): Use if-let* since we don't need/want
the backwards compat of if-let.
This commit is contained in:
Lars Ingebrigtsen 2022-09-29 12:29:36 +02:00
parent 4cb9342a3b
commit 0e72d4793c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/subr.el
View File

@ -2524,7 +2524,7 @@ The variable list SPEC is the same as in `if-let'."
(let ((done (gensym "done")))
`(catch ',done
(while t
(if-let ,spec
(if-let* ,spec
(progn
,@body)
(throw ',done nil))))))