Mercurial > hg > xemacs-beta

comparison lisp/mule/canna-leim.el @ 3010:bd7174adf0f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-21 15:48:28 by stephent] Revert rename of canna_api to canna-api. <87d5lylvqq.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 21 Oct 2005 15:48:42 +0000
parents 414a64af46c9
children 50d74a9d19b7
comparison
equal deleted inserted replaced
3009:79943d344216 3010:bd7174adf0f2
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) 38 ;; use (locate-file "canna/canna_api" module-load-path module-extensions)
39 ;; to locate the module without loading it. 39 ;; to locate the module without loading it.
40 ;; then we could autoload canna-activate and dump and/or autoload: 40 ;; then we could autoload canna-activate and dump and/or autoload:
41 ;; (and (locate-file "canna/canna-api" module-load-path module-extensions) 41 ;; (and (locate-file "canna/canna_api" module-load-path module-extensions)
42 ;; (locate-library "canna") 42 ;; (locate-library "canna")
43 ;; (register-input-method 'japanese-canna "Japanese" 'canna-activate nil 43 ;; (register-input-method 'japanese-canna "Japanese" 'canna-activate nil
44 ;; "Canna - a kana to kanji conversion program")) 44 ;; "Canna - a kana to kanji conversion program"))
45 45
46 (defun canna-activate (&optional name) 46 (defun canna-activate (&optional name)
47 ;; XEmacs 21.5.10 and later have 3-argument require. 47 ;; XEmacs 21.5.10 and later have 3-argument require.
48 (unless (require 'CANNA "canna/canna-api" 'no-error) 48 (unless (require 'CANNA "canna/canna_api" 'no-error)
49 (error 'file-error 49 (error 'file-error
50 "No Canna API support!? See M-x describe-installation & C-h v module-load-path.")) 50 "No Canna API support!? See M-x describe-installation & C-h v module-load-path."))
51 (unless (require 'canna nil 'no-error) 51 (unless (require 'canna nil 'no-error)
52 (error 'file-error 52 (error 'file-error
53 "Canna LISP support not found. Is the mule-base package missing?")) 53 "Canna LISP support not found. Is the mule-base package missing?"))