diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-15 14:45:27 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-15 14:45:27 -0400 |
| commit | c41045e6f2b9e9aa5ab8c7c679a2ea04b130fca3 (patch) | |
| tree | b287fecde0e207e8662b33128dd6f7ee1de9d744 /lisp/emacs-lisp | |
| parent | 036dfb8b567cf4b382c7333de25ed3fd85dfed8a (diff) | |
| download | emacs-c41045e6f2b9e9aa5ab8c7c679a2ea04b130fca3.tar.gz emacs-c41045e6f2b9e9aa5ab8c7c679a2ea04b130fca3.tar.bz2 emacs-c41045e6f2b9e9aa5ab8c7c679a2ea04b130fca3.zip | |
* lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 0d115cc56f5..28eaa3d3455 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -113,7 +113,8 @@ like `(,a . ,(pred (< a))) or, with more checks: "Like `let*' but where you can use `pcase' patterns for bindings. BODY should be an expression, and BINDINGS should be a list of bindings of the form (UPAT EXP)." - (declare (indent 1) (debug let)) + (declare (indent 1) + (debug ((&rest &or (sexp &optional form) symbolp) body))) (cond ((null bindings) (if (> (length body) 1) `(progn ,@body) (car body))) ((pcase--trivial-upat-p (caar bindings)) @@ -132,7 +133,7 @@ of the form (UPAT EXP)." "Like `let' but where you can use `pcase' patterns for bindings. BODY should be a list of expressions, and BINDINGS should be a list of bindings of the form (UPAT EXP)." - (declare (indent 1) (debug let)) + (declare (indent 1) (debug pcase-let*)) (if (null (cdr bindings)) `(pcase-let* ,bindings ,@body) (let ((matches '())) |