gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

modeline: improve coding-system detection

Browse Source
This commit is contained in:
Henrik Lissner 2016-12-31 03:04:06 -05:00
parent 328ea5e6ac
commit 43be671008
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/core-modeline.el
View File

@ -217,8 +217,12 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(cond ((eq eol-type 0) "LF ")
((eq eol-type 1) "CRLF ")
((eq eol-type 2) "CR ")))
(let ((coding-sys (plist-get (coding-system-plist buffer-file-coding-system) :name)))
(upcase (symbol-name (if (eq coding-sys 'prefer-utf-8) 'utf-8 coding-sys))))
(let* ((sys (coding-system-plist buffer-file-coding-system))
(sys-name (plist-get sys :name))
(sys-cat (plist-get sys :category)))
(cond ((memq sys-cat '(coding-category-undecided coding-category-utf-8))
"UTF-8")
(t (upcase (symbol-name sys-name)))))
" "))
(defun *major-mode ()