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

changeset: 4316:2e528ccfe69025a1139be3d9c31c6560dd78aac6 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; 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&gt; * 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&gt; + + * 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&gt; * 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