From: Nicolas Petton Date: Fri, 5 Jun 2015 23:50:32 +0000 (+0200) Subject: Better syntax for the map pcase pattern X-Git-Tag: emacs-25.0.90~1849 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a54e8dfff722014d6d709ccfe53230e551b9c22;p=emacs.git Better syntax for the map pcase pattern * lisp/emacs-lisp/map.el: Improves the map pcase pattern to take bindings of the form (KEY PAT) or SYMBOL. KEY is not quoted. --- 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))