comparison lisp/international/code-pages.el @ 55469:df6db683f4f1

Fix last change.

55468:f13a7f45ce0f

  ?ะ  ?ั  ?า  ?ำ  ?ิ  ?ี  ?ึ  ?ื  ?ุ  ?ู  ?ฺ  nil nil nil nil ?฿
  ?เ  ?แ  ?โ  ?ใ  ?ไ  ?ๅ  ?ๆ  ?็  ?่  ?้  ?๊  ?๋  ?์  ?ํ  ?๎  ?๏
  ?๐  ?๑  ?๒  ?๓  ?๔  ?๕  ?๖  ?๗  ?๘  ?๙  ?๚  ?๛   nil nil nil nil]
 "ISO-8859-11.  This is `thai-tis620' with the addition of no-break-space.")

(dotimes (i 8)
  (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)))
    ;; 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

55469:df6db683f4f1

  ?ะ  ?ั  ?า  ?ำ  ?ิ  ?ี  ?ึ  ?ื  ?ุ  ?ู  ?ฺ  nil nil nil nil ?฿
  ?เ  ?แ  ?โ  ?ใ  ?ไ  ?ๅ  ?ๆ  ?็  ?่  ?้  ?๊  ?๋  ?์  ?ํ  ?๎  ?๏
  ?๐  ?๑  ?๒  ?๓  ?๔  ?๕  ?๖  ?๗  ?๘  ?๙  ?๚  ?๛   nil nil nil nil]
 "ISO-8859-11.  This is `thai-tis620' with the addition of no-break-space.")

(dotimes (i 9)
  (let ((w (intern (format "windows-125%d" i)))
	(c (intern (format "cp125%d" i))))
    ;; 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)))

;; DOS/Windows codepages that correspond to coding systems already supported