Fix pre-existing font frame parameter being overwritten

2019-10-28 23:18:07 -04:00 · 2019-10-28 23:18:07 -04:00 · 6549a4f982
commit 6549a4f982
parent 43030c789e
1 changed files with 5 additions and 3 deletions
--- a/core/core-ui.el
+++ b/core/core-ui.el
@ -599,12 +599,14 @@ behavior). Do not set this directly, this is let-bound in `doom-init-theme-h'.")
 (defun doom-init-fonts-h ()
  "Loads `doom-font'."
  (cond (doom-font
-         (add-to-list
-          'default-frame-alist
+         (cl-pushnew
          (cons 'font
                (cond ((stringp doom-font) doom-font)
                      ((fontp doom-font) (font-xlfd-name doom-font))
-                      ((signal 'wrong-type-argument (list '(fontp stringp) doom-font)))))))
+                      ((signal 'wrong-type-argument (list '(fontp stringp)
+                                                          doom-font)))))
+          default-frame-alist
+          :key #'car :test #'eq))
        ((display-graphic-p)
         (setq doom-font (face-attribute 'default :font)))))