mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

(set-locale-environment): On MS-Windows use ansi code-page for default

Browse source 
coding-systems.  Set up paper sizes for Windows 3 letter languages.
This commit is contained in:
Jason Rumney 2004-05-09 14:57:44 +00:00
parent 35d95cf6c1
commit 893b49bbdf
2 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2004-05-09 Jason Rumney <jasonr@gnu.org>
* international/mule-cmds.el (set-locale-environment): On
MS-Windows use ansi code-page for default coding-systems.
Set up paper sizes for Windows 3 letter languages.
* international/code-pages.el (cp932, cp936, cp949, cp950): Add
aliases. Also add cp125* if not already defined.
2004-05-09 Juanma Barranquero <lektu@terra.es>
* net/quickurl.el (quickurl, quickurl-browse-url, quickurl-read):

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

@ -2413,6 +2413,16 @@ See also `locale-charset-language-names', `locale-language-names',
(prefer-coding-system coding-system)
(setq locale-coding-system coding-system))))
;; On Windows, override locale-coding-system, keyboard-coding-system,
;; selection-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)
(set-selection-coding-system code-page-coding)
(set-keyboard-coding-system code-page-coding)
(set-terminal-coding-system code-page-coding))))
;; Default to A4 paper if we're not in a C, POSIX or US locale.
;; (See comments in Flocale_info.)
(let ((locale locale)
@ -2435,7 +2445,11 @@ See also `locale-charset-language-names', `locale-language-names',
("posix$" . letter)
(".._us" . letter)
(".._pr" . letter)
(".._ca" . letter)))
(".._ca" . letter)
("enu$" . letter) ; Windows
("esu$" . letter)
("enc$" . letter)
("frc$" . letter)))
'a4))))))
nil)