Skip to content

GitLab

Commit db9aec47 authored by Kenichi Handa's avatar Kenichi Handa
Browse files
Options

(set-default-coding-systems): Sync 

with HEAD.
parent eeb7eaa8
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
lisp/international/mule-cmds.el
View file @ db9aec47
...@@ -340,9 +340,13 @@ This also sets the following values: ...@@ -340,9 +340,13 @@ This also sets the following values:
(or (local-variable-p 'buffer-file-coding-system buffer) (or (local-variable-p 'buffer-file-coding-system buffer)
(ucs-set-table-for-input buffer)))) (ucs-set-table-for-input buffer))))
(if (and default-enable-multibyte-characters (not (eq system-type 'darwin))) (if (eq system-type 'darwin)
;; The file-name coding system on Darwin systems is always utf-8. ;; 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)
(coding-system-get coding-system 'ascii-compatible-p)))
(setq default-file-name-coding-system coding-system)))
;; If coding-system is nil, honor that on MS-DOS as well, so ;; If coding-system is nil, honor that on MS-DOS as well, so
;; that they could reset the terminal coding system. ;; that they could reset the terminal coding system.
(unless (and (eq window-system 'pc) coding-system) (unless (and (eq window-system 'pc) coding-system)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment