Mercurial > emacs
changeset 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 | e141d1037b4c |
| children | ec3fac03b44a |
| files | lisp/international/code-pages.el |
| diffstat | 1 files changed, 2 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/code-pages.el Sun May 09 21:33:26 2004 +0000 +++ b/lisp/international/code-pages.el Sun May 09 21:35:11 2004 +0000 @@ -4488,19 +4488,12 @@ ;; Define cp125* as aliases for all windows-125*, so on Windows ;; we can just concat "cp" to the ANSI codepage we get from the system ;; and not have to worry about whether it should be "cp" or "windows-". - (define-coding-system-alias c w) + (if (coding-system-p w) + (define-coding-system-alias c w)) ;; Compatibility with codepage.el, though cp... are not the ;; canonical names. (push (assoc w non-iso-charset-alist) non-iso-charset-alist))) -;; 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) ;;; arch-tag: 8b6e3c73-b271-4198-866d-ea6d0ceff1b2