blob: b6f10dd53c8c2f1b0ae2a3dc1fa3c299cc0bc5ad (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
--- ../mule.org/lisp/eggrc-wnn Fri Jul 28 20:12:41 1995
+++ ./lisp/eggrc-wnn Wed Oct 29 12:13:50 1997
@@ -24,7 +24,7 @@
;;;
;;; modified for Wnn V4 - Use compatible library of Wnn v3
;;; Copyright 1989 OMRON Tateisi Electronics, Co.
-;;; 1989 7/12 by H.Kuribayashi kuri@frf.oron.junet
+;;; 1989 7/12 by H.Kuribayashi kuri@frf.omron.junet
;;; 92.5.19 modified for Wnn V4 by T.Shingu <shingu@cpr.canon.co.jp>
;;; Use non compatible library.
@@ -50,14 +50,16 @@
(concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
(add-wnn-dict "iwanami/tankan.dic" "" 1 nil nil)
(add-wnn-dict "iwanami/tankan2.dic" "" 1 nil nil)
- (add-wnn-dict "iwanami/tel.dic" "" 1 nil nil)
- (add-wnn-dict "iwanami/zip.dic" "" 1 nil nil)
+ (add-wnn-dict "iwanami/tel.dic"
+ (concat wnn-usr-dic-dir "/tel.h") 1 nil t)
+ (add-wnn-dict "iwanami/zip.dic"
+ (concat wnn-usr-dic-dir "/zip.h") 1 nil t)
(add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
(set-wnn-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200)
- (add-wnn-notrans-dict (concat wnn-usr-dic-dir "/katakana") 15 t)
+ (add-wnn-notrans-dict (concat wnn-usr-dic-dir "/muhenkan") 15 t)
(add-wnn-bmodify-dict (concat wnn-usr-dic-dir "/bunsetsu") 15 t)
(set-last-is-first-mode t)
@@ -101,7 +103,9 @@
(add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
- (set-wnn-param 2 10 2 45 5 80 5 1 40 0 400 -100 400 80 200 2 200)
+; (set-wnn-param 2 10 2 45 5 80 5 1 40 0 400 -100 400 80 200 2 200)
+; New Parameter
+ (set-wnn-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200)
(set-wnn-reverse t)
(set-wnn-fuzokugo "pubdic/full.fzk")
(add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
@@ -158,7 +162,7 @@
((eq wnn-server-type 'kserver)
(set-wnn-reverse nil)
(set-wnn-fuzokugo "sys/full.fzk")
- ; (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
+ (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
(add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
(add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
; (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
@@ -166,7 +170,7 @@
(set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
(set-wnn-reverse t)
(set-wnn-fuzokugo "sys/full.fzk")
- ; (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
+ (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
(add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
(add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
; (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
|
