commit 6e9a8d0bc06cba5ffc5640d20fcba218d66b50f8
parent c53b1a4845841cf7b306247f18bbfecbed19e51c
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Fri, 19 Sep 2025 08:08:01 +0200
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.
Diffstat:
1 file changed, 4 insertions(+), 10 deletions(-)
diff --git 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.
