aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2005-02-03 16:06:34 +0000
committerStefan Monnier2005-02-03 16:06:34 +0000
commita41118cc4571147ce0d4ff80e9d088e6cf9fecd6 (patch)
treec6fcb4a86c127054612a5803d5493bf5e977bf3a
parent97f4312dfd4541305b4c0f05806cf51416d127f6 (diff)
downloademacs-a41118cc4571147ce0d4ff80e9d088e6cf9fecd6.tar.gz
emacs-a41118cc4571147ce0d4ff80e9d088e6cf9fecd6.zip
(set-locale-environment): Set file-name coding system to utf-8 on Darwin.
(set-default-coding-systems): Don't set default-file-name-coding-system on Darwin systems.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/international/mule-cmds.el9
2 files changed, 15 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7ab3fb44ae..708a20b1403 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12005-02-03 Stefan <monnier@iro.umontreal.ca>
2
3 * international/mule-cmds.el (set-locale-environment): Set file-name
4 coding system to utf-8 on Darwin systems.
5 (set-default-coding-systems): Don't set default-file-name-coding-system
6 on Darwin systems.
7
12005-02-03 Richard M. Stallman <rms@gnu.org> 82005-02-03 Richard M. Stallman <rms@gnu.org>
2 9
3 * hi-lock.el (hi-lock-mode): Turning on Hi-Lock turns on Font-Lock. 10 * hi-lock.el (hi-lock-mode): Turning on Hi-Lock turns on Font-Lock.
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index cf004fe5ebf..2b3af4d7e50 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -327,7 +327,8 @@ This also sets the following values:
327 (or (local-variable-p 'buffer-file-coding-system buffer) 327 (or (local-variable-p 'buffer-file-coding-system buffer)
328 (ucs-set-table-for-input buffer)))) 328 (ucs-set-table-for-input buffer))))
329 329
330 (if default-enable-multibyte-characters 330 (if (and default-enable-multibyte-characters (not (eq system-type 'darwin)))
331 ;; The file-name coding system on Darwin systems is always utf-8.
331 (setq default-file-name-coding-system coding-system)) 332 (setq default-file-name-coding-system coding-system))
332 ;; If coding-system is nil, honor that on MS-DOS as well, so 333 ;; If coding-system is nil, honor that on MS-DOS as well, so
333 ;; that they could reset the terminal coding system. 334 ;; that they could reset the terminal coding system.
@@ -1694,6 +1695,8 @@ The default status is as follows:
1694 1695
1695 (set-default-coding-systems nil) 1696 (set-default-coding-systems nil)
1696 (setq default-sendmail-coding-system 'iso-latin-1) 1697 (setq default-sendmail-coding-system 'iso-latin-1)
1698 ;; On Darwin systems, this should be utf-8, but when this file is loaded
1699 ;; utf-8 is not yet defined, so we set it in set-locale-environment instead.
1697 (setq default-file-name-coding-system 'iso-latin-1) 1700 (setq default-file-name-coding-system 'iso-latin-1)
1698 ;; Preserve eol-type from existing default-process-coding-systems. 1701 ;; Preserve eol-type from existing default-process-coding-systems.
1699 ;; On non-unix-like systems in particular, these may have been set 1702 ;; On non-unix-like systems in particular, these may have been set
@@ -2428,6 +2431,10 @@ See also `locale-charset-language-names', `locale-language-names',
2428 (set-keyboard-coding-system code-page-coding) 2431 (set-keyboard-coding-system code-page-coding)
2429 (set-terminal-coding-system code-page-coding)))) 2432 (set-terminal-coding-system code-page-coding))))
2430 2433
2434 ;; On Darwin, file names are always encoded in utf-8, no matter the locale.
2435 (when (eq system-type 'darwin)
2436 (setq default-file-name-coding-system 'utf-8))
2437
2431 ;; Default to A4 paper if we're not in a C, POSIX or US locale. 2438 ;; Default to A4 paper if we're not in a C, POSIX or US locale.
2432 ;; (See comments in Flocale_info.) 2439 ;; (See comments in Flocale_info.)
2433 (let ((locale locale) 2440 (let ((locale locale)