awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

ui/modeline: show UTF-8 for prefer-utf-8 encoding

Browse Source
This commit is contained in:
Henrik Lissner
2018-09-03 04:32:43 +02:00
parent 230135cf06
commit 786ab9e7b5
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/ui/modeline/config.el
View File

@ -494,7 +494,9 @@ Meant for `+modeline-buffer-path-function'."
(let* ((sys (coding-system-plist buffer-file-coding-system)) (let* ((sys (coding-system-plist buffer-file-coding-system))
(category (plist-get sys :category))) (category (plist-get sys :category)))
(cond ((eq category 'coding-category-undecided) "") (cond ((eq category 'coding-category-undecided) "")
((eq category 'coding-category-utf-8) "UTF-8 ") ((or (eq category 'coding-category-utf-8)
(eq (plist-get sys :name) 'prefer-utf-8))
"UTF-8 ")
((concat (upcase (symbol-name (plist-get sys :name))) " ")))))) ((concat (upcase (symbol-name (plist-get sys :name))) " "))))))
(def-modeline-segment! +modeline-major-mode (def-modeline-segment! +modeline-major-mode