[Emacs-diffs] master 66a53da 2/3: pcase.el: Edebug support for `app' and vector patterns

[Johan Bockgard]

branch: master
commit 66a53da5f0c15a1e69675e8157fbbc00a364bb80
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>

    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 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 3a2fa4f..bbb278c 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