diff options
| author | Stefan Monnier | 2005-02-03 16:06:34 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-02-03 16:06:34 +0000 |
| commit | a41118cc4571147ce0d4ff80e9d088e6cf9fecd6 (patch) | |
| tree | c6fcb4a86c127054612a5803d5493bf5e977bf3a | |
| parent | 97f4312dfd4541305b4c0f05806cf51416d127f6 (diff) | |
| download | emacs-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/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 9 |
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 @@ | |||
| 1 | 2005-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 | |||
| 1 | 2005-02-03 Richard M. Stallman <rms@gnu.org> | 8 | 2005-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) |