Remove VS-16 shim

Just inline the results.  That function was useful when both Emacs 27
and 28 were used in the wild, but oldstable has 28 already.

1 files changed, 4 insertions, 10 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 51ee017..f056b69 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -379,20 +379,14 @@ list and require no escaping."
 
 ;;; Lighters.
 
-(defun my/symbol-as-emoji (c)
-  ;; By default, Emacs uses color fonts for characters from (1) the
-  ;; 'emoji script (2) the 'symbol script, when followed by VS-16.
-  (string c ?\N{VARIATION SELECTOR-16}))
-
 ;; So long, Will Mengarini.
 (delight 'abbrev-mode nil 'abbrev)
 (delight 'auto-fill-function "⏎" t)
 (delight 'auto-revert-mode "⟳" 'autorevert)
 (delight 'auto-revert-tail-mode "⤓" 'autorevert)
 (delight 'footnote-mode "¹" 'footnote)
-(delight 'flyspell-mode (propertize (my/symbol-as-emoji ?🖋)
-                                    'face 'flyspell-incorrect)
-         'flyspell)
+(delight
+ 'flyspell-mode (propertize "🖋️" 'face 'flyspell-incorrect) 'flyspell)
 (delight 'hi-lock-mode nil 'hi-lock)
 (delight 'hs-minor-mode "…" 'hideshow)
 (delight 'mml-mode "📧" 'mml)
@@ -408,13 +402,13 @@ list and require no escaping."
        (old-props (text-properties-at 0 (car indicator)))
        (face '(:inverse-video t :inherit compilation-mode-line-run))
        (new-props (append `(face ,face) old-props))
-       (icon (my/symbol-as-emoji ?⚙)))
+       (icon "⚙️"))
   (setcar indicator (concat (apply #'propertize icon new-props) " ")))
 
 (setq eglot-menu-string "🦻")
 
 (with-eval-after-load 'flymake
-  (let ((indicator (propertize (my/symbol-as-emoji ?⚒) 'face 'flymake-error)))
+  (let ((indicator (propertize "⚒️" 'face 'flymake-error)))
     ;; Prefer customizing the string instead delight'ing, as flymake
     ;; slaps a bunch of helpful properties on top of the lighter,
     ;; which delight would strip.