lisp/mule/canna-leim.el

   1 ;;; canna-leim.el --- Canna-related code for LEIM
   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
  35 (defun canna-activate (&optional name)
  36   (if (featurep 'CANNA)
  37       (require 'canna)
  38     (error "Canna is not built into this XEmacs"))
  39   (setq inactivate-current-input-method-function 'canna-inactivate)
  40   (unless (featurep 'leim-canna-initialized)
  41     (canna)
  42     (provide 'leim-canna-initialized))
  43   (canna-toggle-japanese-mode))
  44
  45 (defun canna-inactivate ()
  46   (cond (canna:*japanese-mode* (canna-toggle-japanese-mode))) )
  47
  48 (register-input-method
  49  'japanese-canna "Japanese"
  50  'canna-activate nil
  51  "Canna - a kana to kanji conversion program" )
  52
  53 (provide 'canna-leim)
  54
  55 ;;; canna-leim.el ends here