From: Eli Zaretskii Date: Sun, 17 Jun 2018 07:40:29 +0000 (+0300) Subject: When possible, prefer UTF-8 as the safe encoding for saving X-Git-Tag: emacs-27.0.90~4821 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6f992b8e30b1d7c2a53a629e1a4be0deda7fb77;p=emacs.git When possible, prefer UTF-8 as the safe encoding for saving * lisp/international/mule-cmds.el (select-safe-coding-system): If possible, offer UTF-8 as the default encoding. (Bug#31807) --- diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 8e69a1c7ab2..cf6a8c78d09 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -988,6 +988,11 @@ It is highly recommended to fix it before writing to a file." ;; If all the defaults failed, ask a user. (when (not coding-system) + ;; If UTF-8 is in CODINGS, but is not its first member, make + ;; it the first one, so it is offered as the default. + (and (memq 'utf-8 codings) (not (eq 'utf-8 (car codings))) + (setq codings (append '(utf-8) (delq 'utf-8 codings)))) + (setq coding-system (select-safe-coding-system-interactively from to codings unsafe rejected (car codings))))