changeset 55469:df6db683f4f1

Fix last change.

--- a/lisp/international/code-pages.el	Sun May 09 15:02:14 2004 +0000
+++ b/lisp/international/code-pages.el	Sun May 09 15:39:00 2004 +0000
@@ -4482,13 +4482,13 @@
   ?๐  ?๑  ?๒  ?๓  ?๔  ?๕  ?๖  ?๗  ?๘  ?๙  ?๚  ?๛   nil nil nil nil]
  "ISO-8859-11.  This is `thai-tis620' with the addition of no-break-space.")
 
-(dotimes (i 8)
+(dotimes (i 9)
   (let ((w (intern (format "windows-125%d" i)))
 	(c (intern (format "cp125%d" i))))
-    (if (coding-system-p c)		; 1251 is in cyrillic.el
-	(define-coding-system-alias c w)
-      (if (coding-system-p w)
-	  (define-coding-system-alias w c)))
+    ;; 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)
     ;; Compatibility with codepage.el, though cp... are not the
     ;; canonical names.
     (push (assoc w non-iso-charset-alist) non-iso-charset-alist)))

--- a/lisp/international/mule-cmds.el	Sun May 09 15:02:14 2004 +0000
+++ b/lisp/international/mule-cmds.el	Sun May 09 15:39:00 2004 +0000
@@ -2415,7 +2415,7 @@
 
     ;; On Windows, override locale-coding-system, keyboard-coding-system,
     ;; selection-coding-system with system codepage.
-    (when (boundp w32-ansi-code-page)
+    (when (boundp 'w32-ansi-code-page)
       (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
 	(when (coding-system-p code-page-coding)
 	  (setq locale-coding-system code-page-coding)