1 files changed, 9 insertions, 6 deletions
diff --git a/init.el b/init.el
index b6a01d0..f2224dc 100644
--- a/init.el
+++ b/init.el

@@ -182,12 +182,15 @@
  (icomplete-mode +1)
  ;; Emoji
-  (when-let* ((ffl (font-family-list))
+  (let ((ffl (font-family-list)))
-              (symbol-font (car (or (member "Segoe UI Emoji" ffl)
+    (dolist (emoji-font '("Segoe UI Emoji"
-                                    (member "Noto Color Emoji" ffl)
+                          "Noto Color Emoji"
-                                    (member "Apple Emoji" ffl)))))
+                          "Apple Color Emoji"
-    (set-fontset-font t 'symbol (font-spec :family symbol-font) nil 'prepend))
+                          "Symbola"))
+      (when (member emoji-font ffl)
+        (set-fontset-font t 'symbol
+                          (font-spec :family emoji-font) nil 'append))))
+  
  ;; Etc.
  (:option inhibit-startup-screen t
           initial-buffer-choice t

diff --git a/init.el b/init.el index b6a01d0..f2224dc 100644 --- a/init.el +++ b/init.el
@@ -182,12 +182,15 @@
182	(icomplete-mode +1)	182	(icomplete-mode +1)
183		183
184	;; Emoji	184	;; Emoji
185	(when-let* ((ffl (font-family-list))	185	(let ((ffl (font-family-list)))
186	(symbol-font (car (or (member "Segoe UI Emoji" ffl)	186	(dolist (emoji-font '("Segoe UI Emoji"
187	(member "Noto Color Emoji" ffl)	187	"Noto Color Emoji"
188	(member "Apple Emoji" ffl)))))	188	"Apple Color Emoji"
189	(set-fontset-font t 'symbol (font-spec :family symbol-font) nil 'prepend))	189	"Symbola"))
190		190	(when (member emoji-font ffl)
		191	(set-fontset-font t 'symbol
		192	(font-spec :family emoji-font) nil 'append))))
		193
191	;; Etc.	194	;; Etc.
192	(:option inhibit-startup-screen t	195	(:option inhibit-startup-screen t
193	initial-buffer-choice t	196	initial-buffer-choice t