|
502
|
1 ;;; canna-leim.el --- Canna-related code for LEIM -*- coding: iso-2022-7bit; -*-
|
|
333
|
2 ;; Copyright (C) 1997 Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
|
|
|
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
|
|
|
4 ;;
|
|
|
5 ;; Shamelessly ripped off from
|
|
|
6 ;;
|
|
|
7 ;; skk-leim.el --- SKK related code for LEIM
|
|
|
8 ;; Copyright (C) 1997
|
|
|
9 ;; Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp>
|
|
|
10 ;;
|
|
|
11 ;; Author: Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
|
|
|
12 ;; Version: canna-leim.el,v 1.2 1997/10/27 10:08:49 steve Exp
|
|
|
13 ;; Keywords: japanese, input method, LEIM
|
|
|
14 ;; Last Modified: 1997/10/27 10:08:49
|
|
|
15
|
|
|
16 ;; This program is free software; you can redistribute it and/or modify
|
|
|
17 ;; it under the terms of the GNU General Public License as published by
|
|
|
18 ;; the Free Software Foundation; either versions 2, or (at your option)
|
|
|
19 ;; any later version.
|
|
|
20
|
|
|
21 ;; This program is distributed in the hope that it will be useful
|
|
|
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
24 ;; GNU General Public License for more details.
|
|
|
25
|
|
|
26 ;; You should have received a copy of the GNU General Public License
|
|
|
27 ;; along with XEmacs, see the file COPYING. If not, write to the Free
|
|
|
28 ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
|
|
|
29 ;; MA 02111-1307, USA.
|
|
|
30
|
|
|
31 ;;; TODO
|
|
|
32 ;;
|
|
|
33 ;; Add pointers to Canna documentation in LEIM format
|
|
|
34
|
|
778
|
35 (globally-declare-boundp 'canna:*japanese-mode*)
|
|
|
36 (globally-declare-fboundp '(canna canna-toggle-japanese-mode))
|
|
|
37
|
|
3824
|
38 ;; use (locate-file "canna_api" module-load-path module-extensions)
|
|
2973
|
39 ;; to locate the module without loading it.
|
|
|
40 ;; then we could autoload canna-activate and dump and/or autoload:
|
|
3824
|
41 ;; (and (locate-file "canna_api" module-load-path module-extensions)
|
|
2973
|
42 ;; (locate-library "canna")
|
|
|
43 ;; (register-input-method 'japanese-canna "Japanese" 'canna-activate nil
|
|
|
44 ;; "Canna - a kana to kanji conversion program"))
|
|
|
45
|
|
333
|
46 (defun canna-activate (&optional name)
|
|
2973
|
47 ;; XEmacs 21.5.10 and later have 3-argument require.
|
|
3824
|
48 (unless (require 'CANNA "canna_api" 'no-error)
|
|
2973
|
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?"))
|
|
333
|
54 (setq inactivate-current-input-method-function 'canna-inactivate)
|
|
|
55 (unless (featurep 'leim-canna-initialized)
|
|
|
56 (canna)
|
|
|
57 (provide 'leim-canna-initialized))
|
|
|
58 (canna-toggle-japanese-mode))
|
|
|
59
|
|
|
60 (defun canna-inactivate ()
|
|
778
|
61 (cond (canna:*japanese-mode* (canna-toggle-japanese-mode))))
|
|
333
|
62
|
|
|
63 (register-input-method
|
|
|
64 'japanese-canna "Japanese"
|
|
|
65 'canna-activate nil
|
|
|
66 "Canna - a kana to kanji conversion program" )
|
|
|
67
|
|
|
68 (provide 'canna-leim)
|
|
|
69
|
|
|
70 ;;; canna-leim.el ends here
|
