From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 2 Mar 2021 20:57:45 +0000 (-0500)
Subject: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo
X-Git-Tag: emacs-28.0.90~3458
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7;p=emacs.git

* lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo
---

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index c565687896a..4804180ac9b 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -872,7 +872,7 @@ Otherwise, it defers to REST which is a list of branches of the form
           (if (not v)
               (pcase--u1 matches code (cons (list upat sym) vars) rest)
             ;; Non-linear pattern.  Turn it into an `eq' test.
-            (setq (cddr v) 'used)
+            (setcdr (cdr v) 'used)
             (pcase--u1 (cons `(match ,sym . (pred (eql ,(cadr v))))
                              matches)
                        code vars rest))))