aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2006-11-08 07:34:24 +0000
committerKenichi Handa2006-11-08 07:34:24 +0000
commitb2020e89330a16f31d1123e6dc4df26af0e830a8 (patch)
tree18d8850a6103be1677511fc7ceb0fa45023c29b9
parentd5abc12cc225c78407a251152dbd9d20338bb94d (diff)
downloademacs-b2020e89330a16f31d1123e6dc4df26af0e830a8.tar.gz
emacs-b2020e89330a16f31d1123e6dc4df26af0e830a8.zip
(set-default-coding-systems): Always
set default-file-name-coding-system to utf-8 for Mac Darwin.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/international/mule-cmds.el10
2 files changed, 11 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de966981171..d530721d9ce 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12006-11-08 Kenichi Handa <handa@m17n.org>
2
3 * international/mule-cmds.el (set-default-coding-systems): Always
4 set default-file-name-coding-system to utf-8 for Mac Darwin.
5
12006-11-08 Juanma Barranquero <lekktu@gmail.com> 62006-11-08 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * makefile.w32-in (setwins): Remove. 8 * makefile.w32-in (setwins): Remove.
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 6edc0a4daac..fc461bffe2c 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -337,11 +337,13 @@ This also sets the following values:
337 (or (local-variable-p 'buffer-file-coding-system buffer) 337 (or (local-variable-p 'buffer-file-coding-system buffer)
338 (ucs-set-table-for-input buffer)))) 338 (ucs-set-table-for-input buffer))))
339 339
340 (if (and default-enable-multibyte-characters (not (eq system-type 'darwin)) 340 (if (eq system-type 'darwin)
341 (or (not coding-system)
342 (not (coding-system-get coding-system 'ascii-incompatible))))
343 ;; The file-name coding system on Darwin systems is always utf-8. 341 ;; The file-name coding system on Darwin systems is always utf-8.
344 (setq default-file-name-coding-system coding-system)) 342 (setq default-file-name-coding-system 'utf-8)
343 (if (and default-enable-multibyte-characters
344 (or (not coding-system)
345 (not (coding-system-get coding-system 'ascii-incompatible))))
346 (setq default-file-name-coding-system coding-system)))
345 ;; If coding-system is nil, honor that on MS-DOS as well, so 347 ;; If coding-system is nil, honor that on MS-DOS as well, so
346 ;; that they could reset the terminal coding system. 348 ;; that they could reset the terminal coding system.
347 (unless (and (eq window-system 'pc) coding-system) 349 (unless (and (eq window-system 'pc) coding-system)