From c354cdde0c458020601f379b31df2c73f83fb8f0 Mon Sep 17 00:00:00 2001 From: Vincent Zhang Date: Wed, 27 Jun 2018 14:32:23 +0800 Subject: [PATCH] Remove `map`. --- doom-modeline.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/doom-modeline.el b/doom-modeline.el index 626cd37..fdc40c2 100644 --- a/doom-modeline.el +++ b/doom-modeline.el @@ -46,7 +46,6 @@ (require 'all-the-icons) (require 'eldoc-eval) -(require 'map) (require 'projectile) (require 'shrink-path) @@ -202,13 +201,13 @@ active." (format "%s modeline segment" name)))) (cond ((and (symbolp (car body)) (not (cdr body))) - (map-put doom-modeline-var-alist name (car body)) - `(map-put doom-modeline-var-alist ',name ',(car body))) + (add-to-list 'doom-modeline-var-alist (cons name (car body))) + `(add-to-list 'doom-modeline-var-alist (cons ',name ',(car body)))) (t - (map-put doom-modeline-fn-alist name sym) + (add-to-list 'doom-modeline-fn-alist (cons name sym)) `(progn (fset ',sym (lambda () ,docstring ,@body)) - (map-put doom-modeline-fn-alist ',name ',sym) + (add-to-list 'doom-modeline-fn-alist (cons ',name ',sym)) ,(unless (bound-and-true-p byte-compile-current-file) `(let (byte-compile-warnings) (byte-compile #',sym))))))))