Commit 7a860cf2 authored by Dave Love's avatar Dave Love
Browse files

Add latin-iso8859-1[45].

parent 3edc33a4
......@@ -281,12 +281,16 @@
(modify-category-entry (make-char 'latin-iso8859-3) ?l)
(modify-category-entry (make-char 'latin-iso8859-4) ?l)
(modify-category-entry (make-char 'latin-iso8859-9) ?l)
(modify-category-entry (make-char 'latin-iso8859-14) ?l)
(modify-category-entry (make-char 'latin-iso8859-15) ?l)
(modify-category-entry (make-char 'latin-iso8859-1 160) ?\ )
(modify-category-entry (make-char 'latin-iso8859-2 160) ?\ )
(modify-category-entry (make-char 'latin-iso8859-3 160) ?\ )
(modify-category-entry (make-char 'latin-iso8859-4 160) ?\ )
(modify-category-entry (make-char 'latin-iso8859-9 160) ?\ )
(modify-category-entry (make-char 'latin-iso8859-14 160) ?\ )
(modify-category-entry (make-char 'latin-iso8859-15 160) ?\ )
;; Greek character set (ISO-8859-7)
......@@ -615,7 +619,9 @@
(chinese-cns11643-6 . iso-2022-cn)
(chinese-cns11643-7 . iso-2022-cn)
(indian-2-column . devanagari)
(tibetan . tibetan))))
(tibetan . tibetan)
(latin-iso8859-14 . iso-latin-8)
(latin-iso8859-15 . iso-latin-9))))
(while l
(put-charset-property (car (car l)) 'preferred-coding-system (cdr (car l)))
(setq l (cdr l))))
......
......@@ -76,6 +76,8 @@
(lao . "MuleLao-1")
(tibetan . "MuleTibetan-0")
(tibetan-1-column . "MuleTibetan-1")
(latin-iso8859-14 . "ISO8859-14")
(latin-iso8859-15 . "ISO8859-15")
))
(let ((l x-charset-registries))
......@@ -113,6 +115,8 @@
("iso8859-6" ascii arabic-iso8859-6)
("iso8859-7" ascii greek-iso8859-7)
("iso8859-8" ascii hebrew-iso8859-8)
("iso8859-14" ascii latin-iso8859-14)
("iso8859-15" ascii latin-iso8859-15)
("tis620" ascii thai-tis620)
("koi8" ascii cyrillic-iso8859-5)
("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower)
......
......@@ -31,7 +31,7 @@
;;; Definitions of character sets.
;; Basic (official) character sets. These character sets are treated
;; effectively in the aspect of memory in a buffer.
;; efficiently with respect to buffer memory.
;; Syntax:
;; (define-charset CHARSET-ID CHARSET
......@@ -68,6 +68,10 @@
"ISO8859-5 (Cyrillic)"])
(define-charset 141 'latin-iso8859-9
[1 96 1 0 ?M 1 "Latin-5" "ISO8859-9 (Latin-5)" "ISO8859-9 (Latin-5)"])
(define-charset 142 'latin-iso8859-15
[1 96 1 0 ?b 1 "Latin-9" "ISO8859-15 (Latin-9)" "ISO8859-15 (Latin-9)"])
(define-charset 143 'latin-iso8859-14
[1 96 1 0 ?_ 1 "Latin-8" "ISO8859-14 (Latin-8)" "ISO8859-14 (Latin-8)"])
(define-charset 144 'japanese-jisx0208-1978
[2 94 2 0 ?@ 0 "JISX0208.1978" "JISX0208.1978 (Japanese)"
"JISX0208.1978 Japanese Kanji (so called \"old JIS\")"])
......@@ -96,7 +100,7 @@
"Big5 Level-2 Chinese traditional"])
;; Additional (private) character sets. These character sets are
;; treated less effectively in the aspect of memory in a buffer.
;; treated less space-efficiently in the buffer.
;; Syntax:
;; (define-charset nil CHARSET
......@@ -142,7 +146,7 @@
;; Chinese CNS11643 Plane3 thru Plane7. Although these are official
;; character sets, the use is rare and don't have to be treated
;; effectively in the aspect of memory in a buffer.
;; space-efficiently in the buffer.
(define-charset nil 'chinese-cns11643-3
[2 94 2 0 ?I 0 "CNS11643-3" "CNS11643-3 (Chinese traditional)"
"CNS11643 Plane 3 Chinese Traditional"])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment