[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 f16bd1ead4 1/2: Revert "* lisp/subr.el (while-let): Use if-let,
From: |
Sean Whitton |
Subject: |
emacs-29 f16bd1ead4 1/2: Revert "* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758)." |
Date: |
Sun, 15 Jan 2023 12:02:05 -0500 (EST) |
branch: emacs-29
commit f16bd1ead430294ff90cb4c3f0aba608a719a2e7
Author: Sean Whitton <spwhitton@spwhitton.name>
Commit: Sean Whitton <spwhitton@spwhitton.name>
Revert "* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758)."
This reverts commit 083badc9c122a802080552e7771e78ee47c01e3c.
---
lisp/subr.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index ab451b5613..34dd847e9d 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))))))