diff options
| author | Kenichi Handa <[email protected]> | 2012-01-18 10:11:15 +0900 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 2012-01-18 10:11:15 +0900 |
| commit | 71784361eb381ec2b12bd8283724a7addec49079 (patch) | |
| tree | 4547bbe1edcb4ab87f5fad0cbb95c8b48e8d986a /lisp/international/mule-cmds.el | |
| parent | 9858f6c326dfad35733b0dc86231bdd97f2b7703 (diff) | |
international/mule-cmds.el (prefer-coding-system): Show a warning message if the default value of file-name-coding-system was not changed.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 0d3f079866..94b5724c01 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -418,7 +418,10 @@ To prefer, for instance, utf-8, say the following: (if (memq eol-type '(0 1 2)) (setq base (coding-system-change-eol-conversion base eol-type))) - (set-default-coding-systems base))) + (set-default-coding-systems base) + (if (called-interactively-p 'interactive) + (or (eq base default-file-name-coding-system) + (message "The default value of `file-name-coding-system' was not changed because the specified coding system is not suitable for file names."))))) (defvar sort-coding-systems-predicate nil "If non-nil, a predicate function to sort coding systems. |