Mercurial > emacs
changeset 55464:5fb7af7d17e8
(cp932, cp936, cp949, cp950): Add aliases.
Also add cp125* if not already defined.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sun, 09 May 2004 13:45:14 +0000 |
| parents | 843ab503fee2 |
| children | 9629ef26c137 |
| files | lisp/international/code-pages.el |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/code-pages.el Sun May 09 12:38:56 2004 +0000 +++ b/lisp/international/code-pages.el Sun May 09 13:45:14 2004 +0000 @@ -4486,15 +4486,20 @@ (let ((w (intern (format "windows-125%d" i))) (c (intern (format "cp125%d" i)))) (if (coding-system-p c) ; 1251 is in cyrillic.el - (define-coding-system-alias c w)) + (define-coding-system-alias c w) + (if (coding-system-p w) + (define-coding-system-alias w c))) ;; Compatibility with codepage.el, though cp... are not the ;; canonical names. (push (assoc w non-iso-charset-alist) non-iso-charset-alist))) -;; Use Unicode font under Windows. Jason Rumney fecit. -(if (fboundp 'w32-add-charset-info) - (unless (boundp 'w32-unicode-charset-defined) - (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))) +;; DOS/Windows codepages that correspond to coding systems already supported +;; by Emacs. Only codepages used as system codepages are listed here, +;; to assist in finding the appropriate coding-system for clipboard etc. +(define-coding-system-alias 'cp932 'japanese-shift-jis) +(define-coding-system-alias 'cp936 'chinese-iso-8bit) +(define-coding-system-alias 'cp949 'korean-iso-8bit) +(define-coding-system-alias 'cp950 'chinese-big5) (provide 'code-pages)