From 6e9a8d0bc06cba5ffc5640d20fcba218d66b50f8 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Fri, 19 Sep 2025 08:08:01 +0200 Subject: 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. --- .config/emacs/init.el | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to '.config') 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. -- cgit v1.2.3