(iso-8859-11): New.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5179d89a1f30812be2ee487f331dba1b6a3e30c6..fd7945ccee18e230c67bb7db224a831b310116ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-27  Dave Love  <fx@gnu.org>
+
+       * international/code-pages.el (iso-8859-11): New.
+
 2002-10-26  Richard M. Stallman  <rms@gnu.org>
 
        * progmodes/make-mode.el (makefile-cleanup-continuations):

diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index c3ec192d248111b2a0a1f0f8254c179bb8965957..b681d4d7d6632938b58f409466c34f50c28ada43 100644 (file)
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -36,7 +36,7 @@
 ;; cp869, cp874, cp1125, windows-1250, windows-1251, windows-1252,
 ;; windows-1253, windows-1254, windows-1255, windows-1256,
 ;; windows-1257, windows-1258, next, koi8-u, iso-8859-6,
-;; iso-8859-10, iso-8859-12, iso-8859-16, koi8-t, georgian-ps.  This
+;; iso-8859-10, iso-8859-11, iso-8859-16, koi8-t, georgian-ps.  This
 ;; is meant to include all the single-byte ones relevant to GNU (used
 ;; in glibc-defined locales); we don't yet get all the multibyte ones
 ;; in base Emacs.
@@ -4710,6 +4710,20 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
 (define-coding-system-alias 'cp866u 'cp1125)
 
+(cp-make-coding-system
+ iso-8859-11
+ [
+nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+?   ?ก  ?ข  ?ฃ  ?ค  ?ฅ  ?ฆ  ?ง  ?จ  ?ฉ  ?ช  ?ซ  ?ฌ  ?ญ  ?ฎ  ?ฏ
+?ฐ  ?ฑ  ?ฒ  ?ณ  ?ด  ?ต  ?ถ  ?ท  ?ธ  ?น  ?บ  ?ป  ?ผ  ?ฝ  ?พ  ?ฟ
+?ภ  ?ม  ?ย  ?ร  ?ฤ  ?ล  ?ฦ  ?ว  ?ศ  ?ษ  ?ส  ?ห  ?ฬ  ?อ  ?ฮ  ?ฯ
+?ะ  ?ั  ?า  ?ำ  ?ิ  ?ี  ?ึ  ?ื  ?ุ  ?ู  ?ฺ  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))))