Commit | Line | Data |
---|---|---|
0a10297a | 1 | ;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
4ed46869 | 2 | |
38141d20 | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
d4877ac1 | 4 | ;; Free Software Foundation, Inc. |
7976eda0 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
38141d20 | 6 | ;; 2005, 2006, 2007, 2008 |
eaa61218 KH |
7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 | ;; Registration Number H14PRO021 | |
1fdc503d | 9 | |
8f924df7 KH |
10 | ;; Copyright (C) 2003 |
11 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
12 | ;; Registration Number H13PRO009 | |
1fdc503d | 13 | |
4ed46869 KH |
14 | ;; Keywords: multilingual, Hebrew |
15 | ||
16 | ;; This file is part of GNU Emacs. | |
17 | ||
18 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
19 | ;; it under the terms of the GNU General Public License as published by | |
d7142f3e | 20 | ;; the Free Software Foundation; either version 3, or (at your option) |
4ed46869 KH |
21 | ;; any later version. |
22 | ||
23 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
24 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
25 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
26 | ;; GNU General Public License for more details. | |
27 | ||
28 | ;; You should have received a copy of the GNU General Public License | |
369314dc | 29 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3a35cf56 LK |
30 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
31 | ;; Boston, MA 02110-1301, USA. | |
4ed46869 KH |
32 | |
33 | ;;; Commentary: | |
34 | ||
eccac837 | 35 | ;; For Hebrew, the character set ISO8859-8 is supported. |
445559c9 | 36 | ;; See http://www.ecma.ch/ecma1/STAND/ECMA-121.HTM. |
eccac837 | 37 | ;; Windows-1255 is also supported. |
1fdc503d | 38 | |
4ed46869 KH |
39 | ;;; Code: |
40 | ||
e1915ab3 KH |
41 | (define-coding-system 'hebrew-iso-8bit |
42 | "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)." | |
43 | :coding-type 'charset | |
44 | :mnemonic ?8 | |
45 | :charset-list '(iso-8859-8) | |
d21363d3 | 46 | :mime-charset 'iso-8859-8) |
4ed46869 | 47 | |
71eabd24 | 48 | (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) |
4b9121fc | 49 | |
b81fa2f9 EZ |
50 | ;; These are for Explicit and Implicit directionality information, as |
51 | ;; defined in RFC 1556. We don't yet support directional information | |
52 | ;; in bidi languages, so these aliases are a lie, especially as far as | |
53 | ;; iso-8859-8-e is concerned. FIXME. | |
54 | (define-coding-system-alias 'iso-8859-8-e 'hebrew-iso-8bit) | |
55 | (define-coding-system-alias 'iso-8859-8-i 'hebrew-iso-8bit) | |
56 | ||
4ed46869 | 57 | (set-language-info-alist |
8f924df7 | 58 | "Hebrew" '((charset iso-8859-8) |
e4dfd4f7 | 59 | (coding-priority hebrew-iso-8bit) |
b523ee67 | 60 | (coding-system hebrew-iso-8bit windows-1255 cp862) |
e1915ab3 | 61 | (nonascii-translation . iso-8859-8) |
8f76845d KH |
62 | (input-method . "hebrew") |
63 | (unibyte-display . hebrew-iso-8bit) | |
dc09922d | 64 | (sample-text . "Hebrew \e,Hylem\e(B") |
1fdc503d | 65 | (documentation . "Right-to-left writing is not yet supported."))) |
4ed46869 | 66 | |
eccac837 DL |
67 | (set-language-info-alist |
68 | "Windows-1255" '((coding-priority windows-1255) | |
69 | (coding-system windows-1255) | |
5ef35063 WL |
70 | (documentation . "\ |
71 | Support for Windows-1255 encoding, e.g. for Yiddish. | |
1fdc503d | 72 | Right-to-left writing is not yet supported."))) |
eccac837 | 73 | |
5a41bd8b DL |
74 | (define-coding-system 'windows-1255 |
75 | "windows-1255 (Hebrew) encoding (MIME: WINDOWS-1255)" | |
76 | :coding-type 'charset | |
77 | :mnemonic ?h | |
78 | :charset-list '(windows-1255) | |
79 | :mime-charset 'windows-1255) | |
80 | (define-coding-system-alias 'cp1255 'windows-1255) | |
81 | ||
bac4bf38 | 82 | (define-coding-system 'cp862 |
b523ee67 | 83 | "DOS codepage 862 (Hebrew)" |
bac4bf38 DL |
84 | :coding-type 'charset |
85 | :mnemonic ?D | |
86 | :charset-list '(cp862) | |
87 | :mime-charset 'cp862) | |
88 | (define-coding-system-alias 'ibm862 'cp862) | |
89 | ||
41da80b1 DL |
90 | (provide 'hebrew) |
91 | ||
cbee283d | 92 | ;; arch-tag: 3ca04f32-3f1e-498e-af46-8267498ba5d9 |
4b9121fc | 93 | ;;; hebrew.el ends here |