|
219
|
1 ;;; skk-leim.el --- SKK related code for LEIM
|
|
|
2 ;; Copyright (C) 1997
|
|
|
3 ;; Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp>
|
|
|
4 ;;
|
|
|
5 ;; Author: Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp>
|
|
225
|
6 ;; Version: $Id: skk-leim.el,v 1.2 1997/12/17 06:27:16 steve Exp $
|
|
219
|
7 ;; Keywords: japanese
|
|
225
|
8 ;; Last Modified: $Date: 1997/12/17 06:27:16 $
|
|
219
|
9
|
|
|
10 ;; This program is free software; you can redistribute it and/or modify
|
|
|
11 ;; it under the terms of the GNU General Public License as published by
|
|
|
12 ;; the Free Software Foundation; either versions 2, or (at your option)
|
|
|
13 ;; any later version.
|
|
|
14
|
|
|
15 ;; This program is distributed in the hope that it will be useful
|
|
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
18 ;; GNU General Public License for more details.
|
|
|
19
|
|
|
20 ;; You should have received a copy of the GNU General Public License
|
|
|
21 ;; along with SKK, see the file COPYING. If not, write to the Free
|
|
|
22 ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
|
|
|
23 ;; MA 02111-1307, USA.
|
|
|
24
|
|
|
25 ;; (require 'skk-foreword)
|
|
|
26 ;; (require 'skk-vars)
|
|
|
27
|
|
|
28 (defun skk-activate (&optional name)
|
|
|
29 (require 'skk-foreword)
|
|
|
30 (require 'skk-vars)
|
|
|
31 (setq inactivate-current-input-method-function 'skk-inactivate)
|
|
|
32 (skk-mode 1) )
|
|
|
33
|
|
|
34 (defun skk-auto-fill-activate (&optional name)
|
|
225
|
35 (require 'skk-foreword)
|
|
|
36 (require 'skk-vars)
|
|
219
|
37 (setq inactivate-current-input-method-function 'skk-inactivate)
|
|
|
38 (skk-mode 1) )
|
|
|
39
|
|
|
40 (defun skk-inactivate ()
|
|
|
41 (skk-mode -1) )
|
|
|
42
|
|
|
43 (register-input-method
|
|
|
44 'japanese-skk "Japanese"
|
|
|
45 'skk-activate nil
|
|
|
46 "Simple Kana to Kanji conversion program" )
|
|
|
47
|
|
|
48 (register-input-method
|
|
|
49 'japanese-skk-auto-fill "Japanese"
|
|
|
50 'skk-auto-fill-activate nil
|
|
|
51 "Simple Kana to Kanji conversion program with auto-fill" )
|
|
|
52
|
|
|
53 (provide 'skk-leim)
|
|
|
54 ;;; skk-leim.el ends here
|
