Re: [Emacs-diffs] master cbaa040 1/4: * lisp/emacs-lisp/map.el (map-merge-with): New function

[Nicolas Petton]

Artur Malabarba <address@hidden> writes:

> +(defun map-merge-with (type function &rest maps)
> +  "Merge into a map of type TYPE all the key/value pairs in MAPS.
> +When two maps contain the same key, call FUNCTION on the two
> +values and use the value returned by it.
> +MAP can be a list, hash-table or array."
> +  (let (result)
> +    (while maps
> +      (map-apply (lambda (key value)
> +                (setf (map-elt result key)
> +                      (if (map-contains-key result key)
> +                          (funcall function (map-elt result key) value)
> +                        value)))
> +              (pop maps)))
>      (map-into result type)))

Looks great, thanks! (and with unit tests, that's awesome).

Nico

signature.asc
Description: PGP signature