Mercurial > hg > xemacs-beta
comparison lisp/mule/ethio-util.el @ 778:2923009caf47
[xemacs-hg @ 2002-03-16 10:38:59 by ben]
cm.c, file-coding.c: fix warnings.
.cvsignore: Those pesky *.tmp files.
mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over
all charset definitions from FSF 21.1, convert them to our format,
and stick them in the relevant files. Eventually we will actually
be able to dump these files (though they may not quite work).
autoload.el: Support defun*, defmacro*.
mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for
nonexistent composition funs/vars.
mule/viet-chars.el, dumped-lisp.el: Account for these changes.
font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author | ben |
---|---|
date | Sat, 16 Mar 2002 10:39:19 +0000 |
parents | 943eaba38521 |
children | 026c5bf9c134 |
comparison
equal
deleted
inserted
replaced
777:e65d9cf16707 | 778:2923009caf47 |
---|---|
20 ;; You should have received a copy of the GNU General Public License | 20 ;; You should have received a copy of the GNU General Public License |
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free | 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free |
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA |
23 ;; 02111-1307, USA. | 23 ;; 02111-1307, USA. |
24 | 24 |
25 ;;; Synched up with: Emacs 21.0.103 (language/ethio-util.el). | 25 ;;; Synched up with: Emacs 21.1 (language/ethio-util.el). |
26 | 26 |
27 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> | 27 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> |
28 | |
29 ;;; Commentary: | |
28 | 30 |
29 ;;; Code: | 31 ;;; Code: |
30 | 32 |
31 ;; Information for exiting Ethiopic environment. | 33 ;; Information for exiting Ethiopic environment. |
32 (defvar exit-ethiopic-environment-data nil) | 34 (defvar exit-ethiopic-environment-data nil) |
1296 ((eq (char-charset ch) 'composition) | 1298 ((eq (char-charset ch) 'composition) |
1297 (setq ch (string-to-char (decompose-composite-char ch)) | 1299 (setq ch (string-to-char (decompose-composite-char ch)) |
1298 composite t)) | 1300 composite t)) |
1299 ;; neither gemination nor fidel | 1301 ;; neither gemination nor fidel |
1300 ((not (eq (char-charset ch) 'ethiopic)) | 1302 ((not (eq (char-charset ch) 'ethiopic)) |
1301 (error "Not a valid character."))) | 1303 (error "Not a valid character"))) |
1302 | 1304 |
1303 ;; set frequently referred character features | 1305 ;; set frequently referred character features |
1304 (setq ch (ethio-char-to-ethiocode ch) | 1306 (setq ch (ethio-char-to-ethiocode ch) |
1305 base (* (/ ch 8) 8) | 1307 base (* (/ ch 8) 8) |
1306 modulo (% ch 8)) | 1308 modulo (% ch 8)) |
1307 | 1309 |
1308 (if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000 | 1310 (if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000 |
1309 (and (>= ch 448) (<= ch 452)) ;; \~X - \~A | 1311 (and (>= ch 448) (<= ch 452)) ;; \~X - \~A |
1310 (>= ch 458)) ;; private punctuations | 1312 (>= ch 458)) ;; private punctuations |
1311 (error "Not a valid character.")) | 1313 (error "Not a valid character")) |
1312 | 1314 |
1313 (setq | 1315 (setq |
1314 newch | 1316 newch |
1315 (cond | 1317 (cond |
1316 | 1318 |