diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2015-06-06 01:50:32 +0200 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2015-06-06 01:50:32 +0200 |
| commit | 2a54e8dfff722014d6d709ccfe53230e551b9c22 (patch) | |
| tree | b40648f7c7ddcf5e43b33ccc89399dd5ef6e7fd4 /lisp/emacs-lisp | |
| parent | cd22663b8521f2cc34b260fc097e189428535b29 (diff) | |
| download | emacs-2a54e8dfff722014d6d709ccfe53230e551b9c22.tar.gz emacs-2a54e8dfff722014d6d709ccfe53230e551b9c22.tar.bz2 emacs-2a54e8dfff722014d6d709ccfe53230e551b9c22.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -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)) |