Tweak some Emacs settings

1 files changed, 9 insertions, 5 deletions

diff --git a/.emacs b/.emacs
index 95514e7..86c14dd 100644
--- a/.emacs
+++ b/.emacs
@@ -469,14 +469,18 @@
     (let ((id (xml-substitute-numeric-entities (match-string 1))))
       (my/describe-message id url))))
 
-;; Font stuff 🤷🤦.  Emacs comes with sensible defaults (e.g. the
-;; default fontset includes Symbola for various subgroups of the
-;; "symbol" script), but no color font by default.
-(when (>= emacs-major-version 27)
-  ;; Prefer a color font for emojis.
+;; Font stuff 🤷🤦.
+(cond
+ ((= emacs-major-version 27)
+  ;; Emacs 27 added support for color fonts, but the default fontset
+  ;; did not use any such font for emoji.
   (set-fontset-font t 'symbol "Noto Color Emoji" nil 'prepend)
   ;; Make sure the default font does not get overzealous (⚠⚙).
   (setq use-default-font-for-symbols nil))
+ ((>= emacs-major-version 28)
+  ;; Emacs 28 added an "emoji" script for easier customization, and
+  ;; uses a color font for *most* emoji, but not all.
+  (set-fontset-font t 'emoji "Noto Color Emoji" nil 'prepend)))
 
 (defun my/project-root ()
   (when-let ((project (project-current)))