mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

pcase.el: Edebug support for `app' and vector patterns

Browse source 
* lisp/emacs-lisp/pcase.el (pcase-FUN): New edebug spec.
(pcase-UPAT): Use it. Support `app' patterns.
(pcase-QPAT): Support vector patterns.
This commit is contained in:
Johan Bockgård 2015-04-12 16:26:51 +02:00
parent b62d7956be
commit 66a53da5f0
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/pcase.el
View file

@ -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