changeset: 4316:2e528ccfe69025a1139be3d9c31c6560dd78aac6
tag: tip
user: Aidan Kehoe <kehoea(a)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(a)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(a)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@parhasa
+2007-12-09 Aidan Kehoe <kehoea(a)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(a)sea.gmane.org.
+
2007-12-04 Aidan Kehoe <kehoea(a)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
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches