[Emacs-diffs] /srv/bzr/emacs/trunk r106904: international/mule-cmds.el (prefer-coding-system): Show a warning message if the default value of file-name-coding-system was not changed.

[Kenichi Handa]

------------------------------------------------------------
revno: 106904 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-21 20:38:18 +0900
message:
  international/mule-cmds.el (prefer-coding-system): Show a warning message if 
the default value of file-name-coding-system was not changed.
modified:
  lisp/ChangeLog
  lisp/international/mule-cmds.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-21 10:02:34 +0000
+++ b/lisp/ChangeLog    2012-01-21 11:36:42 +0000
@@ -1,3 +1,9 @@
+20122-01-21  Kenichi Handa  <address@hidden>
+
+       * international/mule-cmds.el (prefer-coding-system): Show a
+       warning message if the default value of file-name-coding-system
+       was not changed.
+
 2012-01-21  Jérémy Compostella  <address@hidden>
 
        * windmove.el (windmove-reference-loc): Fix

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2012-01-19 07:21:25 +0000
+++ b/lisp/international/mule-cmds.el   2012-01-21 11:36:42 +0000
@@ -418,7 +418,10 @@
     (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.