diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-29 12:29:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-29 12:29:36 +0200 |
| commit | 0e72d4793c332f2eaba05130ea08e9809813f599 (patch) | |
| tree | 8a0378eb90dc28bc602a2654a6bc6723d1bf7fa6 /lisp/subr.el | |
| parent | 4cb9342a3bcc836db0dfcb38db6f11cb4e7bac7c (diff) | |
| download | emacs-0e72d4793c332f2eaba05130ea08e9809813f599.tar.gz emacs-0e72d4793c332f2eaba05130ea08e9809813f599.tar.bz2 emacs-0e72d4793c332f2eaba05130ea08e9809813f599.zip | |
Tweak while-let definition
* lisp/subr.el (while-let): Use if-let* since we don't need/want
the backwards compat of if-let.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 2a8fc46a9f9..4f8273d56fb 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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)))))) |