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

; * lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Another doc fix.

Browse source
This commit is contained in:
Eli Zaretskii 2024-02-20 19:15:38 +02:00
parent 4c6653f23a
commit 2eb85a9de1
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/pcase.el
View file

@ -261,8 +261,8 @@ As with `pcase-let', BINDINGS are of the form (PATTERN EXP), but the
EXP in each binding in BINDINGS can use the results of the destructuring EXP in each binding in BINDINGS can use the results of the destructuring
bindings that precede it in BINDINGS' order. bindings that precede it in BINDINGS' order.
Each EXP should match (i.e. be of compatible structure) its Each EXP should match its respective PATTERN (i.e. be of structure
respective PATTERN; a mismatch may signal an error or may go compatible to PATTERN); a mismatch may signal an error or may go
undetected, binding variables to arbitrary values, such as nil." undetected, binding variables to arbitrary values, such as nil."
(declare (indent 1) (declare (indent 1)
(debug ((&rest (pcase-PAT &optional form)) body))) (debug ((&rest (pcase-PAT &optional form)) body)))
@ -283,8 +283,8 @@ All EXPs are evaluated first, and then used to perform destructuring
bindings by matching each EXP against its respective PATTERN. Then bindings by matching each EXP against its respective PATTERN. Then
BODY is evaluated with those bindings in effect. BODY is evaluated with those bindings in effect.
Each EXP should match (i.e. be of compatible structure) its Each EXP should match its respective PATTERN (i.e. be of structure
respective PATTERN; a mismatch may signal an error or may go compatible to PATTERN); a mismatch may signal an error or may go
undetected, binding variables to arbitrary values, such as nil." undetected, binding variables to arbitrary values, such as nil."
(declare (indent 1) (debug pcase-let*)) (declare (indent 1) (debug pcase-let*))
(if (null (cdr bindings)) (if (null (cdr bindings))