Cancel previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fe791bd459b5b4f51215e3379e0ad4b05d4db6c..3e73d399844a108d00168eb31142da2cc875e02a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,3 @@
-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 8f3bd17654697efceee3ccfd5da7a721832ac739..359773ac3465cbece86c9cdfaa4ade048de7af30 100644 (file)
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -4536,6 +4536,7 @@ 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))