Mercurial > hg > xemacs-beta

comparison lisp/mule/canna-leim.el @ 2973:414a64af46c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-04 17:51:13 by stephent] Modularize Canna <87wtkttbvp.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 04 Oct 2005 17:51:32 +0000
parents 2923009caf47
children bd7174adf0f2
comparison
equal deleted inserted replaced
2972:2b58b7fd831c 2973:414a64af46c9
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*) 35 (globally-declare-boundp 'canna:*japanese-mode*)
36 (globally-declare-fboundp '(canna canna-toggle-japanese-mode)) 36 (globally-declare-fboundp '(canna canna-toggle-japanese-mode))
37 37
38 ;; use (locate-file "canna/canna-api" module-load-path module-extensions)
39 ;; to locate the module without loading it.
40 ;; then we could autoload canna-activate and dump and/or autoload:
41 ;; (and (locate-file "canna/canna-api" module-load-path module-extensions)
42 ;; (locate-library "canna")
43 ;; (register-input-method 'japanese-canna "Japanese" 'canna-activate nil
44 ;; "Canna - a kana to kanji conversion program"))
45
38 (defun canna-activate (&optional name) 46 (defun canna-activate (&optional name)
39 (if (featurep 'CANNA) 47 ;; XEmacs 21.5.10 and later have 3-argument require.
40 (require 'canna) 48 (unless (require 'CANNA "canna/canna-api" 'no-error)
41 (error "Canna is not built into this XEmacs")) 49 (error 'file-error
50 "No Canna API support!? See M-x describe-installation & C-h v module-load-path."))
51 (unless (require 'canna nil 'no-error)
52 (error 'file-error
53 "Canna LISP support not found. Is the mule-base package missing?"))
42 (setq inactivate-current-input-method-function 'canna-inactivate) 54 (setq inactivate-current-input-method-function 'canna-inactivate)
43 (unless (featurep 'leim-canna-initialized) 55 (unless (featurep 'leim-canna-initialized)
44 (canna) 56 (canna)
45 (provide 'leim-canna-initialized)) 57 (provide 'leim-canna-initialized))
46 (canna-toggle-japanese-mode)) 58 (canna-toggle-japanese-mode))