Mercurial > hg > xemacs-beta
annotate lisp/mule/ethiopic.el @ 5842:9e5f3a0d4e66
Add `noerror' optional argument to `live-move'.
2014-12-31 Michael Sperber <mike@xemacs.org>
* simple.el (line-move): Add `noerror' optional argument, as in
GNU Emacs.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Sat, 03 Jan 2015 16:24:56 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 353 | 1 ;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*- |
| 2 | |
| 3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN. | |
| 4 ;; Licensed to the Free Software Foundation. | |
| 5 ;; Copyright (C) 1997 MORIOKA Tomohiko | |
| 6 | |
| 7 ;; Keywords: multilingual, Ethiopic | |
| 8 | |
| 9 ;; This file is part of XEmacs. | |
| 10 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
11 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
12 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
13 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
14 ;; option) any later version. |
| 353 | 15 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
19 ;; for more details. |
| 353 | 20 |
| 21 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4072
diff
changeset
|
22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 353 | 23 |
| 24 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp> | |
| 25 ;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp> for XEmacs. | |
| 26 | |
| 27 ;;; Code: | |
| 28 | |
| 778 | 29 ;; Ethiopic characters (Amahric and Tigrigna). |
| 30 (make-charset 'ethiopic "Ethiopic characters" | |
| 31 '(dimension | |
| 32 2 | |
| 3659 | 33 registries ["Ethiopic-Unicode"] |
| 353 | 34 chars 94 |
| 778 | 35 columns 2 |
| 36 direction l2r | |
| 353 | 37 final ?3 |
| 38 graphic 0 | |
| 778 | 39 short-name "Ethiopic" |
| 40 long-name "Ethiopic characters" | |
| 353 | 41 )) |
| 42 | |
| 43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 44 ;;; ETHIOPIC | |
| 45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 46 | |
| 47 (define-category ?E "Ethiopic (Ge'ez) character.") | |
| 48 (modify-category-entry 'ethiopic ?E) | |
| 49 | |
| 50 (define-ccl-program ccl-encode-ethio-font | |
| 51 '(0 | |
| 52 ;; In: R0:ethiopic (not checked) | |
| 53 ;; R1:position code 1 | |
| 54 ;; R2:position code 2 | |
| 55 ;; Out: R1:font code point 1 | |
| 56 ;; R2:font code point 2 | |
| 57 ((r1 -= 33) | |
| 58 (r2 -= 33) | |
| 59 (r1 *= 94) | |
| 60 (r2 += r1) | |
| 61 (if (r2 < 256) | |
| 4072 | 62 (r1 = #x12) |
| 353 | 63 (if (r2 < 448) |
| 4072 | 64 ((r1 = #x13) (r2 -= 256)) |
| 65 ((r1 = #xfd) (r2 -= 208)) | |
| 353 | 66 )))) |
| 67 "CCL program to encode an Ethiopic code to code point of Ethiopic font.") | |
| 68 | |
| 444 | 69 (set-charset-ccl-program 'ethiopic 'ccl-encode-ethio-font) |
| 353 | 70 |
| 71 (set-language-info-alist | |
| 72 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal) | |
| 73 (exit-function . exit-ethiopic-environment) | |
| 74 (charset ethiopic) | |
| 75 (coding-system iso-2022-7bit) | |
| 76 (coding-priority iso-2022-7bit) | |
| 3970 | 77 ;; (input-method . "ethiopic") |
| 353 | 78 (features ethio-util) |
| 79 (sample-text . "$(3$Q#U!.(B") | |
| 80 (documentation . t))) | |
| 81 | |
| 3659 | 82 ;; In a more ideal world, we could set the default face fallback from here |
| 83 ;; to use one of the misc-fixed sizes that handles Ethiopic. | |
| 84 | |
| 353 | 85 ;;; ethiopic.el ends here |