commit: Create "UTF-8" and "WINDOWS-1252" language environments.

[Aidan Kehoe]

changeset:   4316:2e528ccfe69025a1139be3d9c31c6560dd78aac6
tag:         tip
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Sun Dec 09 14:04:13 2007 +0100
files:       lisp/ChangeLog lisp/mule/latin.el
description:
Create "UTF-8" and "WINDOWS-1252" language environments.

2007-12-09  Aidan Kehoe  <kehoea at 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 at sea.gmane.org.


diff -r 26ec8d0f3a9c94369ce38325ef9ee3dd844a9827 -r 2e528ccfe69025a1139be3d9c31c6560dd78aac6 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-04  Aidan Kehoe  <kehoea at parhasa
+2007-12-09  Aidan Kehoe  <kehoea at 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 at sea.gmane.org. 
+
 2007-12-04  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* keydefs.el:
diff -r 26ec8d0f3a9c94369ce38325ef9ee3dd844a9827 -r 2e528ccfe69025a1139be3d9c31c6560dd78aac6 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 @@ This language environment supports %s. "
  '(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