From dc7b512dbe29db8f61f1485dad4213f5c5fd2669 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 19 May 2026 09:24:01 -0700 Subject: yoshi-mode-line: Maintain the mode-name structure I just want to replace the CAR for now, I don't need to replace the CDR. --- yoshi-mode-line.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/yoshi-mode-line.el b/yoshi-mode-line.el index 840bfb9..7187f5d 100644 --- a/yoshi-mode-line.el +++ b/yoshi-mode-line.el @@ -77,7 +77,8 @@ ((derived-mode-p '(php-mode)) (propertize mode-name 'display `(image :type svg :file ,(expand-file-name "php.svg" yoshi-mode-line-icons-dir) :ascent center :height ,(window-default-font-height)))) ((derived-mode-p '(emacs-lisp-mode)) - (propertize mode-name 'display `(image :type svg :file ,(expand-file-name "emacs.svg" yoshi-mode-line-icons-dir) :ascent center :height ,(window-default-font-height)))) + (cons (propertize (car mode-name) 'display `(image :type svg :file ,(expand-file-name "emacs.svg" yoshi-mode-line-icons-dir) :ascent center :height ,(window-default-font-height))) + (cdr mode-name))) ((derived-mode-p '(magit-mode)) (propertize mode-name 'display `(image :type svg :file ,(expand-file-name "magit.svg" yoshi-mode-line-icons-dir) :ascent center :height ,(window-default-font-height)))) (t -- cgit v1.3-2-g0d8e