diff options
| author | Sean Whitton | 2023-01-15 09:57:41 -0700 |
|---|---|---|
| committer | Sean Whitton | 2023-01-15 09:57:41 -0700 |
| commit | f16bd1ead430294ff90cb4c3f0aba608a719a2e7 (patch) | |
| tree | 67efc169fb5b9057717716383c3dc5408e40cc93 | |
| parent | c8d548097278683c94eced742a1a1bea387ced2d (diff) | |
| download | emacs-f16bd1ead430294ff90cb4c3f0aba608a719a2e7.tar.gz emacs-f16bd1ead430294ff90cb4c3f0aba608a719a2e7.zip | |
Revert "* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758)."
This reverts commit 083badc9c122a802080552e7771e78ee47c01e3c.
| -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 ab451b5613b..34dd847e9d5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -2545,7 +2545,7 @@ The variable list SPEC is the same as in `if-let'." | |||
| 2545 | (let ((done (gensym "done"))) | 2545 | (let ((done (gensym "done"))) |
| 2546 | `(catch ',done | 2546 | `(catch ',done |
| 2547 | (while t | 2547 | (while t |
| 2548 | (if-let ,spec | 2548 | (if-let* ,spec |
| 2549 | (progn | 2549 | (progn |
| 2550 | ,@body) | 2550 | ,@body) |
| 2551 | (throw ',done nil)))))) | 2551 | (throw ',done nil)))))) |