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
