Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew.el @ 4299:f4c3ffe60a4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-01 14:24:46 by aidan] Switch away from ISO 2022 for the ISO-8859 character sets.
author aidan
date Sat, 01 Dec 2007 14:24:52 +0000
parents 949ac151a10d
children 1d74a1d115ee
comparison
equal deleted inserted replaced
4298:27150c937a22 4299:f4c3ffe60a4f
46 (loop for c from 96 to 122 46 (loop for c from 96 to 122
47 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")) 47 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w"))
48 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space 48 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space
49 49
50 50
51 (make-coding-system 51 (make-8-bit-coding-system
52 'iso-8859-8 'iso2022 52 'iso-8859-8
53 '((#xAA ?\u00D7) ;; MULTIPLICATION SIGN
54 (#xBA ?\u00F7) ;; DIVISION SIGN
55 (#xDF ?\u2017) ;; DOUBLE LOW LINE
56 (#xE0 ?\u05D0) ;; HEBREW LETTER ALEF
57 (#xE1 ?\u05D1) ;; HEBREW LETTER BET
58 (#xE2 ?\u05D2) ;; HEBREW LETTER GIMEL
59 (#xE3 ?\u05D3) ;; HEBREW LETTER DALET
60 (#xE4 ?\u05D4) ;; HEBREW LETTER HE
61 (#xE5 ?\u05D5) ;; HEBREW LETTER VAV
62 (#xE6 ?\u05D6) ;; HEBREW LETTER ZAYIN
63 (#xE7 ?\u05D7) ;; HEBREW LETTER HET
64 (#xE8 ?\u05D8) ;; HEBREW LETTER TET
65 (#xE9 ?\u05D9) ;; HEBREW LETTER YOD
66 (#xEA ?\u05DA) ;; HEBREW LETTER FINAL KAF
67 (#xEB ?\u05DB) ;; HEBREW LETTER KAF
68 (#xEC ?\u05DC) ;; HEBREW LETTER LAMED
69 (#xED ?\u05DD) ;; HEBREW LETTER FINAL MEM
70 (#xEE ?\u05DE) ;; HEBREW LETTER MEM
71 (#xEF ?\u05DF) ;; HEBREW LETTER FINAL NUN
72 (#xF0 ?\u05E0) ;; HEBREW LETTER NUN
73 (#xF1 ?\u05E1) ;; HEBREW LETTER SAMEKH
74 (#xF2 ?\u05E2) ;; HEBREW LETTER AYIN
75 (#xF3 ?\u05E3) ;; HEBREW LETTER FINAL PE
76 (#xF4 ?\u05E4) ;; HEBREW LETTER PE
77 (#xF5 ?\u05E5) ;; HEBREW LETTER FINAL TSADI
78 (#xF6 ?\u05E6) ;; HEBREW LETTER TSADI
79 (#xF7 ?\u05E7) ;; HEBREW LETTER QOF
80 (#xF8 ?\u05E8) ;; HEBREW LETTER RESH
81 (#xF9 ?\u05E9) ;; HEBREW LETTER SHIN
82 (#xFA ?\u05EA) ;; HEBREW LETTER TAV
83 (#xFD ?\u200E) ;; LEFT-TO-RIGHT MARK
84 (#xFE ?\u200F)) ;; RIGHT-TO-LEFT MARK
53 "ISO-8859-8 (Hebrew)" 85 "ISO-8859-8 (Hebrew)"
54 '(charset-g0 ascii 86 '(mnemonic "MIME/Hbrw"))
55 charset-g1 hebrew-iso8859-8
56 charset-g2 t
57 charset-g3 t
58 no-iso6429 t
59 mnemonic "MIME/Hbrw"
60 ))
61 87
62 (make-coding-system 88 (make-coding-system
63 'ctext-hebrew 'iso2022 89 'ctext-hebrew 'iso2022
64 "ISO-8859-8-E (Hebrew, explicit directional coding)" 90 "ISO-8859-8-E (Hebrew, explicit directional coding)"
65 '(charset-g0 ascii 91 '(charset-g0 ascii