Mercurial > emacs

diff lisp/international/mule-cmds.el @ 73819:5b1056dbe2ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-default-coding-systems): Always set default-file-name-coding-system to utf-8 for Mac Darwin.
author Kenichi Handa <handa@m17n.org>
date Wed, 08 Nov 2006 07:33:40 +0000
parents f5aa4451cada
children d3e5cb1aa5b6 c71725faff1a
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Wed Nov 08 01:15:08 2006 +0000
+++ b/lisp/international/mule-cmds.el	Wed Nov 08 07:33:40 2006 +0000
@@ -337,11 +337,13 @@
 	(or (local-variable-p 'buffer-file-coding-system buffer)
 	    (ucs-set-table-for-input buffer))))
 
-  (if (and default-enable-multibyte-characters (not (eq system-type 'darwin))
-	   (or (not coding-system)
-	       (not (coding-system-get coding-system 'ascii-incompatible))))
+  (if (eq system-type 'darwin)
       ;; The file-name coding system on Darwin systems is always utf-8.
-      (setq default-file-name-coding-system coding-system))
+      (setq default-file-name-coding-system 'utf-8)
+    (if (and default-enable-multibyte-characters
+	     (or (not coding-system)
+		 (not (coding-system-get coding-system 'ascii-incompatible))))
+	(setq default-file-name-coding-system coding-system)))
   ;; If coding-system is nil, honor that on MS-DOS as well, so
   ;; that they could reset the terminal coding system.
   (unless (and (eq window-system 'pc) coding-system)