procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-locale-environment): Set default-file-name-coding-system

Browse source 
from system defaults on Windows.
This commit is contained in:
Jason Rumney 2007-11-14 10:26:09 +00:00
parent d4b9f75c42
commit 262452334c
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-11-14 Jason Rumney <jasonr@gnu.org>
* international/mule-cmds.el (set-locale-environment): Set
default-file-name-coding-system from system defaults on Windows.
2007-11-14 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-parent-bptno-enabled): New variable.

5
lisp/international/mule-cmds.el
View file

@ -2609,12 +2609,13 @@ See also `locale-charset-language-names', `locale-language-names',
(setq locale-coding-system coding-system))))
;; On Windows, override locale-coding-system,
;; keyboard-coding-system with system codepage. Note:
;; selection-coding-system is already set in w32select.c.
;; default-file-name-coding-system, keyboard-coding-system,
;; terminal-coding-system with system codepage.
(when (boundp 'w32-ansi-code-page)
(let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
(when (coding-system-p code-page-coding)
(setq locale-coding-system code-page-coding)
(setq default-file-name-coding-system code-page-coding)
(set-keyboard-coding-system code-page-coding)
(set-terminal-coding-system code-page-coding))))