annotate lisp/language/ethiopic.el @ 89573:6b5d42f51038

(x_get_font_repertory): Handle the case that the encoding of font is other than Unicode.
author Kenichi Handa <handa@m17n.org>
date Mon, 06 Oct 2003 11:23:25 +0000
parents 375f2633d815
children 68c22ea6027c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36429
diff changeset
1 ;;; ethiopic.el --- support for Ethiopic -*- coding: iso-2022-7bit; -*-
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
36429
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
3 ;; Copyright (C) 1995, 2001 Electrotechnical Laboratory, JAPAN.
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18309
diff changeset
4 ;; Licensed to the Free Software Foundation.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Keywords: multilingual, Ethiopic
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
17314
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17299
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17299
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17299
diff changeset
23 ;; Boston, MA 02111-1307, USA.
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
24
36429
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
25 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36429
diff changeset
27 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36429
diff changeset
28
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 (define-ccl-program ccl-encode-ethio-font
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 '(0
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
33 ;; In: R0:ethiopic (not checked)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;; R1:position code 1
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 ;; R2:position code 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; Out: R1:font code point 1
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; R2:font code point 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 ((r1 -= 33)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 (r2 -= 33)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 (r1 *= 94)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 (r2 += r1)
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
42 (if (r2 < 256)
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
43 (r1 = ?\x12)
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
44 (if (r2 < 448)
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
45 ((r1 = ?\x13) (r2 -= 256))
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
46 ((r1 = ?\xfd) (r2 -= 208))
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
47 ))))
19090
7d36a4bbe75e (ccl-encode-ethio-font): Fix typo in doc-string.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
48 "CCL program to encode an Ethiopic code to code point of Ethiopic font.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 (setq font-ccl-encoder-alist
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
51 (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 (set-language-info-alist
22983
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 22764
diff changeset
54 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal)
22518
64b8166a9747 Set `exit-function' of Ethiopic
Kenichi Handa <handa@m17n.org>
parents: 20744
diff changeset
55 (exit-function . exit-ethiopic-environment)
20744
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19090
diff changeset
56 (charset ethiopic)
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19090
diff changeset
57 (coding-system iso-2022-7bit)
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19090
diff changeset
58 (coding-priority iso-2022-7bit)
22983
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 22764
diff changeset
59 (input-method . "ethiopic")
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 22764
diff changeset
60 (features ethio-util)
22764
8543c4052dd2 ("Ethiopic"): Typo in sample-text fixed.
Kenichi Handa <handa@m17n.org>
parents: 22518
diff changeset
61 (sample-text . "$(3$Q#U!.(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38436
diff changeset
62 (documentation .
36429
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
63 "This language envrironment provides these function key bindings
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
64 \(old bindings are shown in parentheses):
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
65 [f3] ethio-fidel-to-sera-buffer (f5)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
66 [S-f3] ethio-fidel-to-sera-region (f5)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
67 [C-f3] ethio-fidel-to-sera-mail-or-marker (f5)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
68
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
69 [f4] ethio-sera-to-fidel-buffer (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
70 [S-f4] ethio-sera-to-fidel-region (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
71 [C-f4] ethio-sera-to-fidel-mail-or-marker (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
72
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
73 [S-f5] ethio-toggle-punctuation (f3)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
74 [S-f6] ethio-modify-vowel (f6)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
75 [S-f7] ethio-replace-space (f7)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
76 [S-f8] ethio-input-special-character (f8)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
77 [S-f9] ethio-replace-space (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
78 [C-f9] ethio-toggle-space (f2)"
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
79 )))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80
33778
6d966e8b4bbe Use provide.
Dave Love <fx@gnu.org>
parents: 23158
diff changeset
81 (provide 'ethiopic)
6d966e8b4bbe Use provide.
Dave Love <fx@gnu.org>
parents: 23158
diff changeset
82
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 ;;; ethiopic.el ends here