Mercurial > emacs
comparison lisp/international/code-pages.el @ 55475:e131e8f2f9f2
(cp932, cp936, cp949, cp950): Remove.
Only add cp125* if windows-125* already defined.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 09 May 2004 21:35:11 +0000 |
parents | df6db683f4f1 |
children | f64396b94a00 |
comparison
equal
deleted
inserted
replaced
55474:e141d1037b4c | 55475:e131e8f2f9f2 |
---|---|
4486 (let ((w (intern (format "windows-125%d" i))) | 4486 (let ((w (intern (format "windows-125%d" i))) |
4487 (c (intern (format "cp125%d" i)))) | 4487 (c (intern (format "cp125%d" i)))) |
4488 ;; Define cp125* as aliases for all windows-125*, so on Windows | 4488 ;; Define cp125* as aliases for all windows-125*, so on Windows |
4489 ;; we can just concat "cp" to the ANSI codepage we get from the system | 4489 ;; we can just concat "cp" to the ANSI codepage we get from the system |
4490 ;; and not have to worry about whether it should be "cp" or "windows-". | 4490 ;; and not have to worry about whether it should be "cp" or "windows-". |
4491 (define-coding-system-alias c w) | 4491 (if (coding-system-p w) |
4492 (define-coding-system-alias c w)) | |
4492 ;; Compatibility with codepage.el, though cp... are not the | 4493 ;; Compatibility with codepage.el, though cp... are not the |
4493 ;; canonical names. | 4494 ;; canonical names. |
4494 (push (assoc w non-iso-charset-alist) non-iso-charset-alist))) | 4495 (push (assoc w non-iso-charset-alist) non-iso-charset-alist))) |
4495 | 4496 |
4496 ;; DOS/Windows codepages that correspond to coding systems already supported | |
4497 ;; by Emacs. Only codepages used as system codepages are listed here, | |
4498 ;; to assist in finding the appropriate coding-system for clipboard etc. | |
4499 (define-coding-system-alias 'cp932 'japanese-shift-jis) | |
4500 (define-coding-system-alias 'cp936 'chinese-iso-8bit) | |
4501 (define-coding-system-alias 'cp949 'korean-iso-8bit) | |
4502 (define-coding-system-alias 'cp950 'chinese-big5) | |
4503 | |
4504 (provide 'code-pages) | 4497 (provide 'code-pages) |
4505 | 4498 |
4506 ;;; arch-tag: 8b6e3c73-b271-4198-866d-ea6d0ceff1b2 | 4499 ;;; arch-tag: 8b6e3c73-b271-4198-866d-ea6d0ceff1b2 |
4507 ;;; code-pages.el ends here | 4500 ;;; code-pages.el ends here |