diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2023-01-12 17:09:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-01-12 17:09:01 -0700 |
| commit | 083badc9c122a802080552e7771e78ee47c01e3c (patch) | |
| tree | 91fefaae32a0bd7c39cf282ac14dfb2dd1e718bb /lisp/subr.el | |
| parent | 9ecebcdded157e1efc2f51b67967fd101797f225 (diff) | |
| download | emacs-083badc9c122a802080552e7771e78ee47c01e3c.tar.gz emacs-083badc9c122a802080552e7771e78ee47c01e3c.tar.bz2 emacs-083badc9c122a802080552e7771e78ee47c01e3c.zip | |
* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758).
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 62f72734e14..485ca9e4f1b 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2545,7 +2545,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)))))) |