diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-02 15:57:45 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-02 15:57:45 -0500 |
| commit | 3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7 (patch) | |
| tree | c7e4a4563945e4759548fee30e2a8ea14bca25a5 /lisp/emacs-lisp/pcase.el | |
| parent | 8dd588b1fb51bb9178bf34a6be9f35de84e95045 (diff) | |
| download | emacs-3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7.tar.gz emacs-3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7.tar.bz2 emacs-3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo
Diffstat (limited to 'lisp/emacs-lisp/pcase.el')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |