From f8e36a093cfb0b1427147e0e10f870a26788ecc6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 24 Dec 2016 18:45:03 -0500 Subject: [PATCH] modeline: shorten PREFER-UTF-8 to UTF-8 --- core/core-modeline.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/core/core-modeline.el b/core/core-modeline.el index 4b9a4b088..59c4334ff 100644 --- a/core/core-modeline.el +++ b/core/core-modeline.el @@ -217,9 +217,8 @@ 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 "))) - (upcase (symbol-name - (plist-get (coding-system-plist buffer-file-coding-system) - :name))) + (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)))) " ")) (defun *major-mode ()