diff options
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)))) |