Mercurial > hg > xemacs-beta

diff lisp/mule/latin.el @ 4316:2e528ccfe690

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 09 Dec 2007 14:04:13 +0100
parents f4c3ffe60a4f
children 948c9b232595
line wrap: on
line diff
--- 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