Don't make cpXXX as an alias here.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e73d399844a108d00168eb31142da2cc875e02a..0fe791bd459b5b4f51215e3379e0ad4b05d4db6c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-22  Kenichi Handa  <handa@m17n.org>
+
+       * international/code-pages.el: Don't make cpXXX as an alias here.
+
 2006-01-21  Martin Rudalics  <rudalics@gmx.at>
 
        * emacs-lisp/find-func.el (find-definition-noselect)

diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index 359773ac3465cbece86c9cdfaa4ade048de7af30..8f3bd17654697efceee3ccfd5da7a721832ac739 100644 (file)
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -4536,7 +4536,6 @@ Return an updated `non-iso-charset-alist'."
     ;; 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-".
     (when (coding-system-p w)
-      (define-coding-system-alias c w)
       ;; Compatibility with codepage.el, though cp... are not the
       ;; canonical names.
       (if (not (assq c non-iso-charset-alist))