[nongnu] elpa/helm 17c7bd0152 2/2: Fix debug declaration in helm-acase

[ELPA Syncer]

branch: elpa/helm
commit 17c7bd015280b472eda80b90908233a97ba63fca
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix debug declaration in helm-acase
---
 helm-lib.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index 019bc84d88..2ce78de792 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -565,6 +565,9 @@ is usable in next condition."
         (t `(helm-aif ,(car conditions)
                 (helm-aand ,@(cdr conditions))))))
 
+(def-edebug-elem-spec 'helm-acase-GUARD
+  '(&or (symbolp form) sexp))
+
 (defmacro helm-acase (expr &rest clauses)
   "A simple anaphoric case implementation.
 
@@ -581,7 +584,7 @@ EXPR is bound to a temporary variable called `it' which is
 usable in CLAUSES to refer to EXPR.
 
 \(fn EXPR (KEYLIST BODY...)...)"
-  (declare (indent 1) (debug (form &rest (sexp body))))
+  (declare (indent 1) (debug (form &rest (helm-acase-GUARD body))))
   (unless (null clauses)
     (let* ((clause1 (car clauses))
            (key     (car clause1))