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