# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1197205453 -3600
# Node ID 2e528ccfe69025a1139be3d9c31c6560dd78aac6
# Parent  26ec8d0f3a9c94369ce38325ef9ee3dd844a9827
Create "UTF-8" and "WINDOWS-1252" language environments.

2007-12-09  Aidan Kehoe  <kehoea@parhasard.net>

	* mule/latin.el:
	Create clones of the English language environment with UTF-8 and
	Windows-1252 as the associated coding system, for Joachim Schrod's
	use case of f8q022$3o3$1@sea.gmane.org.

diff -r 26ec8d0f3a9c -r 2e528ccfe690 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 08 13:18:49 2007 +0100
+++ b/lisp/ChangeLog	Sun Dec 09 14:04:13 2007 +0100
@@ -1,3 +1,10 @@
+2007-12-09  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule/latin.el: 
+	Create clones of the English language environment with UTF-8 and
+	Windows-1252 as the associated coding system, for Joachim Schrod's
+	use case of f8q022$3o3$1@sea.gmane.org. 
+
 2007-12-04  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* keydefs.el:
diff -r 26ec8d0f3a9c -r 2e528ccfe690 lisp/mule/latin.el
--- a/lisp/mule/latin.el	Sat Dec 08 13:18:49 2007 +0100
+++ b/lisp/mule/latin.el	Sun Dec 09 14:04:13 2007 +0100
@@ -1102,4 +1102,17 @@
  '(mnemonic "cp1252"
    aliases (cp1252)))
 
+;; Provide language environments that prefer specific coding systems.
+(loop
+  for coding-system in '(utf-8 windows-1252 macintosh)
+  with name = nil
+  with assocked = nil
+  do
+  (setq name (create-variant-language-environment "English" coding-system)
+        assocked (assoc name language-info-alist))
+  (setcar assocked
+          (upcase (symbol-name coding-system)))
+  (setcdr assocked
+          (remassq 'locale (cdr assocked))))
+
 ;;; latin.el ends here