diff options
| author | Dave Love <fx@gnu.org> | 2002-10-26 23:31:04 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-10-26 23:31:04 +0000 |
| commit | aaa7d7ea645ec6e4c679dce4bac1c3cae0bb3cbf (patch) | |
| tree | f250917119131c80edcecf7a5f347d645c28f10a | |
| parent | 5ab0ceed9ba8e87bb4257b52f731b2c0c87b971b (diff) | |
| download | emacs-aaa7d7ea645ec6e4c679dce4bac1c3cae0bb3cbf.tar.gz | |
(iso-8859-11): New.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/international/code-pages.el | 16 |
2 files changed, 19 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5179d89a1f3..fd7945ccee1 100644 --- 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 c3ec192d248..b681d4d7d66 100644 --- 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)))) |