diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2015-11-16 00:07:06 +0100 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2015-11-16 23:48:25 +0100 |
| commit | c4b20fc936736053a0a07e060a1b8ff46c48e432 (patch) | |
| tree | daacb912812d131e7377348cbf8e7c19210364ae /lisp/emacs-lisp | |
| parent | 8ff888a07d0500f1274723086469191aade0a33e (diff) | |
| download | emacs-c4b20fc936736053a0a07e060a1b8ff46c48e432.tar.gz emacs-c4b20fc936736053a0a07e060a1b8ff46c48e432.tar.bz2 emacs-c4b20fc936736053a0a07e060a1b8ff46c48e432.zip | |
pcase.el: Fix edebugging of backquoted cons patterns
* lisp/emacs-lisp/pcase.el (pcase-QPAT): Fix edebugging of backquoted
cons patterns. (Bug#21920)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index bf6550dfa3d..c87c2314be3 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -865,8 +865,10 @@ Otherwise, it defers to REST which is a list of branches of the form (def-edebug-spec pcase-QPAT + ;; Cf. edebug spec for `backquote-form' in edebug.el. (&or ("," pcase-PAT) - (pcase-QPAT . pcase-QPAT) + (pcase-QPAT [&rest [¬ ","] pcase-QPAT] + . [&or nil pcase-QPAT]) (vector &rest pcase-QPAT) sexp)) |