# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1084138511 0
# Node ID e131e8f2f9f285d4e2003f654a1b6a310ceecc93
# Parent  e141d1037b4c9f70e4bdc61c68e606efe4afe80f
(cp932, cp936, cp949, cp950): Remove.
Only add cp125* if windows-125* already defined.

diff -r e141d1037b4c -r e131e8f2f9f2 lisp/international/code-pages.el
--- 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