31 |
|
|
32 |
;;; Code: |
;;; Code: |
33 |
|
|
34 |
(make-coding-system |
(define-coding-system 'hebrew-iso-8bit |
35 |
'hebrew-iso-8bit 2 ?8 |
"ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)." |
36 |
"ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)." |
:coding-type 'charset |
37 |
'(ascii hebrew-iso8859-8 nil nil |
:mnemonic ?8 |
38 |
nil ascii-eol ascii-cntl nil nil nil nil nil t) |
:charset-list '(iso-8859-8) |
39 |
'((safe-charsets ascii hebrew-iso8859-8) |
:plist '(mime-charset iso-8859-8)) |
|
(mime-charset . iso-8859-8))) |
|
40 |
|
|
41 |
(define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) |
(define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) |
42 |
|
|
48 |
(define-coding-system-alias 'iso-8859-8-i 'hebrew-iso-8bit) |
(define-coding-system-alias 'iso-8859-8-i 'hebrew-iso-8bit) |
49 |
|
|
50 |
(set-language-info-alist |
(set-language-info-alist |
51 |
"Hebrew" '((charset . (hebrew-iso8859-8)) |
"Hebrew" '((charset . iso-8859-8) |
52 |
(coding-priority hebrew-iso-8bit) |
(coding-priority hebrew-iso-8bit) |
53 |
(coding-system . (hebrew-iso-8bit)) |
(coding-system hebrew-iso-8bit) |
54 |
(nonascii-translation . hebrew-iso8859-8) |
(nonascii-translation . iso-8859-8) |
55 |
(input-method . "hebrew") |
(input-method . "hebrew") |
56 |
(unibyte-display . hebrew-iso-8bit) |
(unibyte-display . hebrew-iso-8bit) |
57 |
(sample-text . "Hebrew ,Hylem(B") |
(sample-text . "Hebrew ,Hylem(B") |