annotate lisp/language/ethiopic.el @ 66121:b1015e4158db

Don't require CL at runtime. (savehist-xemacs): Remove. (savehist-coding-system): Use utf-8 if available, regardless of religion. (savehist-no-conversion): Use (featurep 'xemacs). (savehist-load): Check existence of start-itimer rather than XEmacs. Use an idle timer. (savehist-process-for-saving): Replace use of CL funs `subseq' and `delete-if-not'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 16 Oct 2005 15:22:37 +0000
parents 18a818a2ee7c
children 43cc94d955c2 f9a65d7ebd29
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
62396
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
4 ;; Copyright (C) 1995, 2001
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
6 ;; Registration Number H14PRO021
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; Keywords: multilingual, Ethiopic
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; 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
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62396
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62396
diff changeset
25 ;; Boston, MA 02110-1301, USA.
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
26
36429
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
27 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36429
diff changeset
29 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36429
diff changeset
30
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 (define-ccl-program ccl-encode-ethio-font
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 '(0
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
35 ;; In: R0:ethiopic (not checked)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; R1:position code 1
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; R2:position code 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 ;; Out: R1:font code point 1
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 ;; R2:font code point 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ((r1 -= 33)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 (r2 -= 33)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 (r1 *= 94)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 (r2 += r1)
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
44 (if (r2 < 256)
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
45 (r1 = ?\x12)
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
46 (if (r2 < 448)
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
47 ((r1 = ?\x13) (r2 -= 256))
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
48 ((r1 = ?\xfd) (r2 -= 208))
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
49 ))))
19090
7d36a4bbe75e (ccl-encode-ethio-font): Fix typo in doc-string.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
50 "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
51
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 (setq font-ccl-encoder-alist
17299
1d2c8b8a2875 Completely updated.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
53 (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 (set-language-info-alist
22983
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 22764
diff changeset
56 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal)
22518
64b8166a9747 Set `exit-function' of Ethiopic
Kenichi Handa <handa@m17n.org>
parents: 20744
diff changeset
57 (exit-function . exit-ethiopic-environment)
20744
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19090
diff changeset
58 (charset ethiopic)
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19090
diff changeset
59 (coding-system iso-2022-7bit)
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19090
diff changeset
60 (coding-priority iso-2022-7bit)
22983
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 22764
diff changeset
61 (input-method . "ethiopic")
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 22764
diff changeset
62 (features ethio-util)
22764
8543c4052dd2 ("Ethiopic"): Typo in sample-text fixed.
Kenichi Handa <handa@m17n.org>
parents: 22518
diff changeset
63 (sample-text . "$(3$Q#U!.(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38436
diff changeset
64 (documentation .
36429
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
65 "This language envrironment provides these function key bindings
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
66 \(old bindings are shown in parentheses):
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
67 [f3] ethio-fidel-to-sera-buffer (f5)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
68 [S-f3] ethio-fidel-to-sera-region (f5)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
69 [C-f3] ethio-fidel-to-sera-mail-or-marker (f5)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
70
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
71 [f4] ethio-sera-to-fidel-buffer (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
72 [S-f4] ethio-sera-to-fidel-region (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
73 [C-f4] ethio-sera-to-fidel-mail-or-marker (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
74
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
75 [S-f5] ethio-toggle-punctuation (f3)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
76 [S-f6] ethio-modify-vowel (f6)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
77 [S-f7] ethio-replace-space (f7)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
78 [S-f8] ethio-input-special-character (f8)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
79 [S-f9] ethio-replace-space (unchanged)
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
80 [C-f9] ethio-toggle-space (f2)"
1610938fcd8b ("Ethiopic"): Add documentation.
Kenichi Handa <handa@m17n.org>
parents: 33778
diff changeset
81 )))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82
33778
6d966e8b4bbe Use provide.
Dave Love <fx@gnu.org>
parents: 23158
diff changeset
83 (provide 'ethiopic)
6d966e8b4bbe Use provide.
Dave Love <fx@gnu.org>
parents: 23158
diff changeset
84
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
85 ;;; arch-tag: e81329d9-1286-43ba-92fd-54ce5c7b213c
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86 ;;; ethiopic.el ends here