diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2015-04-12 16:26:52 +0200 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2015-04-12 16:26:52 +0200 |
| commit | 2e47de365b4dcec6781f6150cea977fa8d8a94f2 (patch) | |
| tree | b73c7ee6216e1059bfe138ce06157a06857e67db /lisp/emacs-lisp/eieio.el | |
| parent | 66a53da5f0c15a1e69675e8157fbbc00a364bb80 (diff) | |
| download | emacs-2e47de365b4dcec6781f6150cea977fa8d8a94f2.tar.gz emacs-2e47de365b4dcec6781f6150cea977fa8d8a94f2.tar.bz2 emacs-2e47de365b4dcec6781f6150cea977fa8d8a94f2.zip | |
Support debug declarations in pcase macros
* lisp/emacs-lisp/pcase.el (pcase-MACRO): New edebug spec.
(pcase-UPAT): Use it. Remove "`".
(pcase--edebug-match-macro): New function.
(pcase-defmacro): Support debug declarations.
* lisp/emacs-lisp/cl-macs.el (cl-struct) <pcase-defmacro>:
* lisp/emacs-lisp/eieio.el (eieio) <pcase-defmacro>:
* lisp/emacs-lisp/pcase.el (\`): <pcase-defmacro>: Add debug declaration.
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index bca53c0c892..111459509bc 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -348,6 +348,7 @@ variable name of the same name as the slot." Elements of FIELDS can be of the form (NAME UPAT) in which case the contents of field NAME is matched against UPAT, or they can be of the form NAME which is a shorthand for (NAME NAME)." + (declare (debug (&rest [&or (sexp pcase-UPAT) sexp]))) (let ((is (make-symbol "table"))) ;; FIXME: This generates a horrendous mess of redundant let bindings. ;; `pcase' needs to be improved somehow to introduce let-bindings more |