procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/subr.el (while-let): Fix docs if-let->if-let* (bug#60758).

Browse source
This commit is contained in:
Sean Whitton 2023-01-15 10:01:41 -07:00
parent f16bd1ead4
commit 82ae9caadd
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/subr.el
View file

@ -2540,11 +2540,13 @@ The variable list SPEC is the same as in `if-let'."
Evaluate each binding in turn, stopping if a binding value is nil. Evaluate each binding in turn, stopping if a binding value is nil.
If all bindings are non-nil, eval BODY and repeat. If all bindings are non-nil, eval BODY and repeat.
The variable list SPEC is the same as in `if-let'." The variable list SPEC is the same as in `if-let*'."
(declare (indent 1) (debug if-let)) (declare (indent 1) (debug if-let))
(let ((done (gensym "done"))) (let ((done (gensym "done")))
`(catch ',done `(catch ',done
(while t (while t
;; This is `if-let*', not `if-let', deliberately, despite the
;; name of this macro. See bug#60758.
(if-let* ,spec (if-let* ,spec
(progn (progn
,@body) ,@body)