Fix void-function mapcan on Emacs 25.x

This commit is contained in:
Henrik Lissner 2019-08-07 16:54:47 -04:00
parent 9ab49be564
commit 87358db85e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -14,6 +14,10 @@
(defalias 'if-let* #'if-let) (defalias 'if-let* #'if-let)
(defalias 'when-let* #'when-let) (defalias 'when-let* #'when-let)
;; `mapcan' was introduced in 26.1. `cl-mapcan' isn't a perfect replacement,
;; but it's close enough.
(defalias 'mapcan #'cl-mapcan)
(defun alist-get (key alist &optional default remove testfn) (defun alist-get (key alist &optional default remove testfn)
"Return the value associated with KEY in ALIST. "Return the value associated with KEY in ALIST.
If KEY is not found in ALIST, return DEFAULT. If KEY is not found in ALIST, return DEFAULT.