Mercurial > hg > xemacs-beta
comparison lisp/mule/canna-leim.el @ 333:4f79e16b1112 r21-0-64
Import from CVS: tag r21-0-64
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:49:50 +0200 |
parents | |
children | 7039e6323819 |
comparison
equal
deleted
inserted
replaced
332:bb75ebac9531 | 333:4f79e16b1112 |
---|---|
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 |