From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 15 May 2012 18:45:27 +0000 (-0400)
Subject: * lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.
X-Git-Tag: emacs-24.2.90~471^2~71
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c41045e6f2b9e9aa5ab8c7c679a2ea04b130fca3;p=emacs.git

* lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac2aff0d9c7..717582a6f8f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-05-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.
+
 	* minibuffer.el (completion--sifn-requote): Handle sifn's truncation
 	behavior.
 	(completion--string-equal-p): New function.
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 '()))