Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4315:26ec8d0f3a9c 4316:2e528ccfe690
1100 (#x9F ?\u0178));; LATIN CAPITAL LETTER Y WITH DIAERESIS 1100 (#x9F ?\u0178));; LATIN CAPITAL LETTER Y WITH DIAERESIS
1101 "Microsoft's extension of iso-8859-1 for Western Europe and the Americas. " 1101 "Microsoft's extension of iso-8859-1 for Western Europe and the Americas. "
1102 '(mnemonic "cp1252" 1102 '(mnemonic "cp1252"
1103 aliases (cp1252))) 1103 aliases (cp1252)))
1104 1104
1105 ;; Provide language environments that prefer specific coding systems.
1106 (loop
1107 for coding-system in '(utf-8 windows-1252 macintosh)
1108 with name = nil
1109 with assocked = nil
1110 do
1111 (setq name (create-variant-language-environment "English" coding-system)
1112 assocked (assoc name language-info-alist))
1113 (setcar assocked
1114 (upcase (symbol-name coding-system)))
1115 (setcdr assocked
1116 (remassq 'locale (cdr assocked))))
1117
1105 ;;; latin.el ends here 1118 ;;; latin.el ends here