Define `map-elt' as a generalized variable
commit8b6d82d3ca86f76ed964063b3941a7c6ab0bf1c6
authorNicolas Petton <nicolas@petton.fr>
Sun, 21 Jun 2015 18:46:08 +0000 (21 20:46 +0200)
committerNicolas Petton <nicolas@petton.fr>
Sun, 21 Jun 2015 18:49:16 +0000 (21 20:49 +0200)
tree9ec9c3d28fa320bcaa3c2e177939cba0b5006ec2
parent8d4f1e3bd742278d6a3d4c42811845b860d0d104
Define `map-elt' as a generalized variable

* lisp/emacs-lisp/map.el (map-elt): Define a gv-expander.

* lisp/emacs-lisp/map.el (map--dispatch): Tighten the code.

* lisp/emacs-lisp/map.el (map-put): Redefine it as a function using a
`setf' with `map-elt'.

* test/automated/map-tests.el: Comment out `test-map-put-literal'.
lisp/emacs-lisp/map.el
test/automated/map-tests.el