[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 66a53da 2/3: pcase.el: Edebug support for `app' and
From: |
Johan Bockgard |
Subject: |
[Emacs-diffs] master 66a53da 2/3: pcase.el: Edebug support for `app' and vector patterns |
Date: |
Sun, 12 Apr 2015 14:30:09 +0000 |
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