diff options
-rw-r--r-- | lisp/emacs-lisp/map.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el index b332cf47dd4..a0792d97879 100644 --- a/lisp/emacs-lisp/map.el +++ b/lisp/emacs-lisp/map.el @@ -360,7 +360,7 @@ If KEY is not found, return DEFAULT which defaults to nil." "Return a list of pcase bindings from ARGS to the elements of a map." (seq-map (lambda (elt) (if (consp elt) - `(app (pcase--flip map-elt ',(car elt)) ,(cdr elt)) + `(app (pcase--flip map-elt ,(car elt)) ,(cadr elt)) `(app (pcase--flip map-elt ',elt) ,elt))) args)) |