[Emacs-diffs] emacs-25 c4b20fc: pcase.el: Fix edebugging of backquoted cons patterns

[Johan Bockgard]

branch: emacs-25
commit c4b20fc936736053a0a07e060a1b8ff46c48e432
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>

    pcase.el: Fix edebugging of backquoted cons patterns
    
    * lisp/emacs-lisp/pcase.el (pcase-QPAT): Fix edebugging of backquoted
    cons patterns. (Bug#21920)
---
 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 bf6550d..c87c231 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 [&not ","] pcase-QPAT]
+                  . [&or nil pcase-QPAT])
        (vector &rest pcase-QPAT)
        sexp))