From 66a53da5f0c15a1e69675e8157fbbc00a364bb80 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Johan=20Bockg=C3=A5rd?= <bojohan@gnu.org>
Date: Sun, 12 Apr 2015 16:26:51 +0200
Subject: [PATCH] pcase.el: Edebug support for `app' and vector patterns

* lisp/emacs-lisp/pcase.el (pcase-FUN): New edebug spec.
(pcase-UPAT): Use it. Support `app' patterns.
(pcase-QPAT): Support vector patterns.
---
 lisp/emacs-lisp/pcase.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 3a2fa4fdc81..bbb278c863e 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -78,17 +78,22 @@
        ("`" pcase-QPAT)
        ("guard" form)
        ("let" pcase-UPAT form)
-       ("pred"
-        &or lambda-expr
-        ;; Punt on macros/special forms.
-        (functionp &rest form)
-        sexp)
+       ("pred" pcase-FUN)
+       ("app" pcase-FUN pcase-UPAT)
        sexp))
 
 (def-edebug-spec
   pcase-QPAT
   (&or ("," pcase-UPAT)
        (pcase-QPAT . pcase-QPAT)
+       (vector &rest pcase-QPAT)
+       sexp))
+
+(def-edebug-spec
+  pcase-FUN
+  (&or lambda-expr
+       ;; Punt on macros/special forms.
+       (functionp &rest form)
        sexp))
 
 ;;;###autoload
-- 
2.39.2