From c52708d92dec4a6d7810d634dd4ff23a2cbca1ec Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Sat, 29 Aug 2020 14:21:29 +0000 Subject: [PATCH] Complain about ,@ in backquote pcase patterns * lisp/emacs-lisp/pcase.el (\`): Complain upon encountering \,@ in backquote pcase patterns. --- lisp/emacs-lisp/pcase.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index a8ce23284c..642ff0f73a 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -971,6 +971,7 @@ \` (declare (debug (pcase-QPAT))) (cond ((eq (car-safe qpat) '\,) (cadr qpat)) + ((eq (car-safe qpat) '\,@) (error "sublist matching not supported")) ((vectorp qpat) `(and (pred vectorp) (app length ,(length qpat)) -- 2.28.0