Mercurial > hg > xemacs-beta
changeset 4316:2e528ccfe690
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 | 26ec8d0f3a9c |
| children | 15d36164ebd7 |
| files | lisp/ChangeLog lisp/mule/latin.el |
| diffstat | 2 files changed, 20 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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:
--- 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