comparison lisp/mule/canna-leim.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 7039e6323819
children 414a64af46c9
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
30 30
31 ;;; TODO 31 ;;; TODO
32 ;; 32 ;;
33 ;; Add pointers to Canna documentation in LEIM format 33 ;; Add pointers to Canna documentation in LEIM format
34 34
35 (globally-declare-boundp 'canna:*japanese-mode*)
36 (globally-declare-fboundp '(canna canna-toggle-japanese-mode))
37
35 (defun canna-activate (&optional name) 38 (defun canna-activate (&optional name)
36 (if (featurep 'CANNA) 39 (if (featurep 'CANNA)
37 (require 'canna) 40 (require 'canna)
38 (error "Canna is not built into this XEmacs")) 41 (error "Canna is not built into this XEmacs"))
39 (setq inactivate-current-input-method-function 'canna-inactivate) 42 (setq inactivate-current-input-method-function 'canna-inactivate)
41 (canna) 44 (canna)
42 (provide 'leim-canna-initialized)) 45 (provide 'leim-canna-initialized))
43 (canna-toggle-japanese-mode)) 46 (canna-toggle-japanese-mode))
44 47
45 (defun canna-inactivate () 48 (defun canna-inactivate ()
46 (cond (canna:*japanese-mode* (canna-toggle-japanese-mode))) ) 49 (cond (canna:*japanese-mode* (canna-toggle-japanese-mode))))
47 50
48 (register-input-method 51 (register-input-method
49 'japanese-canna "Japanese" 52 'japanese-canna "Japanese"
50 'canna-activate nil 53 'canna-activate nil
51 "Canna - a kana to kanji conversion program" ) 54 "Canna - a kana to kanji conversion program" )