1 | ;; Copyright 1992 NEC Corporation, Tokyo, Japan. |
---|
2 | ;; |
---|
3 | ;; Permission to use, copy, modify, distribute and sell this software |
---|
4 | ;; and its documentation for any purpose is hereby granted without |
---|
5 | ;; fee, provided that the above copyright notice appear in all copies |
---|
6 | ;; and that both that copyright notice and this permission notice |
---|
7 | ;; appear in supporting documentation, and that the name of NEC |
---|
8 | ;; Corporation not be used in advertising or publicity pertaining to |
---|
9 | ;; distribution of the software without specific, written prior |
---|
10 | ;; permission. NEC Corporation makes no representations about the |
---|
11 | ;; suitability of this software for any purpose. It is provided "as |
---|
12 | ;; is" without express or implied warranty. |
---|
13 | ;; |
---|
14 | ;; NEC CORPORATION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, |
---|
15 | ;; INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN |
---|
16 | ;; NO EVENT SHALL NEC CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR |
---|
17 | ;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF |
---|
18 | ;; USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR |
---|
19 | ;; OTHER TORTUOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR |
---|
20 | ;; PERFORMANCE OF THIS SOFTWARE. |
---|
21 | |
---|
22 | ;; $Id: .canna,v 1.1.1.1 2004/06/20 18:00:44 daisuke Exp $ |
---|
23 | |
---|
24 | ;; µ¹æÃÖ¤´¹¤¨ÊÑ´¹¤òÍøÍѤ¹¤ë¤«¡£ |
---|
25 | |
---|
26 | (setq use-symbolic-definition t) |
---|
27 | |
---|
28 | ;;; ¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤ÎÀßÄê |
---|
29 | ; |
---|
30 | ; ¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¥Æ¡¼¥Ö¥ë¤ò»ØÄꤷ¤Þ¤¹¡£¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¥Æ¡¼¥Ö¥ë¤Ï |
---|
31 | ; (1) ¥«¥ì¥ó¥È¥Ç¥£¥ì¥¯¥È¥ê |
---|
32 | ; (2) ¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê |
---|
33 | ; (3) /usr/lib/canna/dic |
---|
34 | ; ¤Î½ç¤Ë¥µ¡¼¥Á¤µ¤ì¤Þ¤¹¡£ |
---|
35 | ; |
---|
36 | |
---|
37 | ;(setq romkana-table "unix.cbp") |
---|
38 | (setq romkana-table "default.cbp") |
---|
39 | |
---|
40 | ;; ³°Íè¸ìÊÑ´¹ |
---|
41 | ;(setq english-table "canna/english.cbp") |
---|
42 | |
---|
43 | |
---|
44 | ;;; ÍøÍѤ¹¤ë¼½ñ |
---|
45 | ; |
---|
46 | ; ¤¿¤Àñ¤Ë½ñ¤Ê¤٤Ƥ¤¤ë¤Î¤Ïñ¸ìÅÐÏ¿¤ò¹Ô¤ï¤Ê¤¤¼½ñ¤Ç¥·¥¹¥Æ¥à¼½ñ¤Ê¤É¤¬ |
---|
47 | ; ¤³¤ì¤ËÅö¤¿¤ê¤Þ¤¹¡£ |
---|
48 | ; |
---|
49 | ; Éô¼ó¼½ñ¤Ë´Ø¤·¤Æ¤Ï :bushu ¤òÀè¹Ô¤µ¤»¤Æµ½Ò¤·¤Þ¤¹¡£ |
---|
50 | ; |
---|
51 | ; ñ¸ìÅÐÏ¿¤ò¤·¤¿¤¤¼½ñ¤Ë´Ø¤·¤Æ¤Ï :user ¤òÀè¹Ô¤µ¤»¤Æµ½Ò¤·¤Þ¤¹¡£Ã±¸ìÅÐ |
---|
52 | ; Ï¿¤ò¤¹¤ë¼½ñ¤Ï¥Æ¥¥¹¥È·Á¼°¼½ñ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Ã±¸ìÅÐÏ¿¤µ¤»¤¿¤¤ |
---|
53 | ; ¼½ñ¤Ï mkdic user ¤ÎÍͤʥ³¥Þ¥ó¥É¤òÂǤĤ³¤È¤Ç¤Ç´Êñ¤ËºîÀ®¤¹¤ë¤³¤È¤¬¤Ç |
---|
54 | ; ¤¤Þ¤¹¡£ |
---|
55 | ; |
---|
56 | (use-dictionary |
---|
57 | "gcanna" |
---|
58 | "gcannaf" |
---|
59 | "chimei" |
---|
60 | ; "iroha" |
---|
61 | "fuzokugo" |
---|
62 | "hojomwd" |
---|
63 | "hojoswd" |
---|
64 | "software" |
---|
65 | "keishiki" |
---|
66 | "zipcode" |
---|
67 | "geo" |
---|
68 | "basho" |
---|
69 | "keisan" |
---|
70 | "pub" |
---|
71 | "scien" |
---|
72 | "sup" |
---|
73 | "bonobo" |
---|
74 | :bushu "bushu" |
---|
75 | :user "user" |
---|
76 | ) |
---|
77 | |
---|
78 | ;;; ¤µ¤Þ¤¶¤Þ¤Ê¥Ñ¥é¥á¥¿¤ÎÀßÄê |
---|
79 | ; |
---|
80 | ; ¿¿ÍýÃͤòÀßÄꤹ¤ë¤â¤Î¤Ë¤Ä¤¤¤Æ¤Ï¿¿¤Ë¤Ä¤¤¤Æ¤Ï t ¡¢µ¶¤Ë¤Ä¤¤¤Æ¤Ï nil ¤òÀß |
---|
81 | ; Äꤷ¤Þ¤¹¡£ |
---|
82 | |
---|
83 | ; °ìÈÖ±¦¤Ç±¦¤Ë¹Ô¤³¤¦¤È¤¹¤ë¤Èº¸Ã¼¤Ë¤¤¤¯¤è¤¦¤Ë¤¹¤ë¤« |
---|
84 | (setq cursor-wrap t) ; default t |
---|
85 | |
---|
86 | ; °ìÍ÷ɽ¼¨¤Ç¿ô»ú¤òÂǤ俤Ȥ¤Ë¥«¡¼¥½¥ë°ÜÆ°¤Ëα¤á¤ë(nil)¤«ÁªÂò¤Þ¤Ç¤·¤Æ |
---|
87 | ; ¤·¤Þ¤¦¤«(t) |
---|
88 | (setq select-direct t) ; default t |
---|
89 | |
---|
90 | ; °ìÍ÷ɽ¼¨¤Ç¿ô»ú¤ÇÁªÂò¤¹¤ë¤«(t)¡£nil¤Î»þ¤Ï¿ô»ú¤¬É½¼¨¤µ¤ì¤Þ¤»¤ó |
---|
91 | (setq numerical-key-select t) ; default t |
---|
92 | |
---|
93 | ; ¸õÊäɽ¼¨»þ¤ËʸÀá¤Î¶èÀÚ¤ê¤Ë¶õÇò¤ò¤¤¤ì¤ë¤« |
---|
94 | (setq bunsetsu-kugiri nil) ; default nil |
---|
95 | |
---|
96 | ; ʸ»ú¥Ù¡¼¥¹¤Î°ÜÆ°¤ò¤¹¤ë¤«(t)¡£ nil¤Î»þ¤Ï¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤Îñ°Ì¤Ç¥«¡¼ |
---|
97 | ; ¥½¥ë°ÜÆ°¤¬¹Ô¤ï¤ì¤Þ¤¹¡£ |
---|
98 | (setq character-based-move t) ; default t |
---|
99 | |
---|
100 | ; ÆþÎÏÃæ¤ÎÆɤßÁ´ÂΤò¥ê¥Ð¡¼¥¹¤¹¤ë¤« |
---|
101 | (setq reverse-widely nil) ; default nil |
---|
102 | |
---|
103 | ; ÉÑÅٳؽ¬¤ò¤¹¤ë¤« |
---|
104 | (setq gakushu t) ; default t |
---|
105 | |
---|
106 | ; °ìÍ÷¤ÎºÇ¸å¤Þ¤Ç¤¤¤Ã¤¿¤é°ìö°ìÍ÷ɽ¼¨¤ò¤ä¤á¤ë¤« |
---|
107 | (setq quit-if-end-of-ichiran nil); default nil |
---|
108 | |
---|
109 | ; ʸÀá¤Î±¦Ã¼¤Ç±¦°ÜÆ°¤ò¤¹¤ë¤ÈÁ´ÂΤ¬³ÎÄꤷ¤Æ¤·¤Þ¤¦¤« |
---|
110 | (setq kakutei-if-end-of-bunsetsu nil) ; default nil |
---|
111 | |
---|
112 | ; °ìÍ÷ÁªÂò¸åƱ¤¸Ê¸Àá¤Ë¤È¤É¤Þ¤ë¤«(t)¡£nil¤Î»þ¤Ï°ìÍ÷ÁªÂò¤ò¹Ô¤¦¤È¤Ò¤È¤ÄÀè |
---|
113 | ; ¤ÎʸÀá¤Ë°ÜÆ°¤·¤Þ¤¹¡£ |
---|
114 | (setq stay-after-validate t) ; default t |
---|
115 | |
---|
116 | ; ÆɤߤòÆþÎÏÃæ¤Ë¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤òÂÇ¤Ä¤È¥í¡¼¥Þ»ú¤Þ¤Ç¥Ð¥é¥Ð¥é¤Ë¤¹¤ë¤« |
---|
117 | (setq break-into-roman t) ; default nil |
---|
118 | |
---|
119 | ; ²¿²ó¤ÎÊÑ´¹¥¡¼¤Ç°ìÍ÷ɽ¼¨¤ò¹Ô¤¦¤«¡££°¤òÆþ¤ì¤ë¤ÈÊÑ´¹¥¡¼¤À¤±¤Ç¤Ï |
---|
120 | ; °ìÍ÷ɽ¼¨¤Ë¤Ï°Ü¤ê¤Þ¤»¤ó¡£¤½¤Î¾ì¹ç¤Ë¤Ï C-w ¤òÆþÎϤ·¤Æ°ìÍ÷ɽ¼¨¤·¤Æ |
---|
121 | ; ²¼¤µ¤¤¡£ |
---|
122 | (setq n-henkan-for-ichiran 2) ; default 2 |
---|
123 | |
---|
124 | ; ñ¸ìÅÐÏ¿»þ¤Ëʸˡ´ØÏ¢¤Î¼ÁÌä¤ò¤¹¤ë¤«(t)¡£nil¤Î»þ¤ÏŬÅö¤ÊÉÊ»ì¤òÉÕ¤±¤Æ¤· |
---|
125 | ; ¤Þ¤¤¤Þ¤¹¡£ |
---|
126 | (setq gramatical-question t) ; default t |
---|
127 | |
---|
128 | ; ¸õÊ䤬Á´ÂΤβ¿ÈÖÌܤ«¤òɽ¼¨¤¹¤ë¤« |
---|
129 | (setq kouho-count t) ; default t |
---|
130 | |
---|
131 | ; Ã༡ÊÑ´¹¤ò¤¹¤ë¤« |
---|
132 | (setq auto nil) ; default nil |
---|
133 | |
---|
134 | ; Ã༡ÊÑ´¹¤ò¤¹¤ë»þ¤Ë²¿¸Ä¤ÎʸÀá¤Þ¤Ç¤ò̤³ÎÄê¤ÇÊÝ»ý¤¹¤ë¤« |
---|
135 | (setq n-kouho-bunsetsu 16) ; default 16 |
---|
136 | |
---|
137 | ; ¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤Ç¥¤¥ê¡¼¥¬¥ë¤Ê¥í¡¼¥Þ»ú¤ò¼Î¤Æ¤ë¤« |
---|
138 | (setq abandon-illegal-phonogram nil) ; default nil |
---|
139 | |
---|
140 | ; °ìÍ÷¤Î»þ¤â¼¡¤ÎÆþÎϤòǧ¤á¤ë¤« |
---|
141 | (setq allow-next-input t) ; default t |
---|
142 | |
---|
143 | ; °ìʸ»ú¥ì¥Ù¥ë¤Î¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤ÎÊä½õ¥Æ¡¼¥Ö¥ë |
---|
144 | (if use-symbolic-definition |
---|
145 | (progn |
---|
146 | (defsymbol ?- "¡¼" "-" "¡Ý" "¡¾") |
---|
147 | (defsymbol ?/ "/" "¡¿" "¡¦") |
---|
148 | (defsymbol ?\\ "\\" "¡À" "¡ï") |
---|
149 | (defsymbol |
---|
150 | ?( "(" "¡Ê" "¡Ú" |
---|
151 | ?) ")" "¡Ë" "¡Û" ) |
---|
152 | (defsymbol |
---|
153 | ?[ "¡Ö" "¡Ø" "¡Î" "¡Ì" "[" |
---|
154 | ?] "¡×" "¡Ù" "¡Ï" "¡Í" "]") |
---|
155 | (defsymbol |
---|
156 | ?. "¡£" "¡¥" "." |
---|
157 | ?, "¡¢" "¡¤" "," ) |
---|
158 | (defsymbol |
---|
159 | ?0 "0" "£°" "¡»" "Îí" |
---|
160 | ?1 "1" "£±" "°ì" "°í" |
---|
161 | ?2 "2" "£²" "Æó" "Æõ" |
---|
162 | ?3 "3" "£³" "»°" "»²" |
---|
163 | ?4 "4" "£´" "»Í" "»Í" |
---|
164 | ?5 "5" "£µ" "¸Þ" "¸à" |
---|
165 | ?6 "6" "£¶" "Ï»" "Ï»" |
---|
166 | ?7 "7" "£·" "¼·" "¼·" |
---|
167 | ?8 "8" "£¸" "Ȭ" "Ȭ" |
---|
168 | ?9 "9" "£¹" "¶å" "¶å" ) |
---|
169 | (defsymbol |
---|
170 | ?? "?" "¡©" |
---|
171 | ?! "!" "¡ª") |
---|
172 | (defsymbol ?# "#" "¡ô") |
---|
173 | (defsymbol ?$ "$" "¡ð") |
---|
174 | (defsymbol ?% "%" "¡ó") |
---|
175 | (defsymbol ?& "&" "¡õ") |
---|
176 | (defsymbol ?+ "+" "¡Ü") |
---|
177 | (defsymbol ?* "*" "¡ö" "¡ß") |
---|
178 | (defsymbol ?_ "_" "¡²") |
---|
179 | (defsymbol ?' "'" "¡Ç") |
---|
180 | (defsymbol ?` "`" "¡Æ") |
---|
181 | (defsymbol ?\" "\"" "¡É") |
---|
182 | )) |
---|
183 | |
---|
184 | ;; delete ¥¡¼¤â¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤ÈƱ¤¸½èÍý¤ò¤µ¤»¤ë |
---|
185 | (global-set-key "\Delete" 'delete-previous) ; necessary in using Emacs |
---|
186 | |
---|
187 | ;; Help ¤¬¤Ê¤¤¿Í¤â¤¤¤ë¤Î¤Ç F1 ¤Ç¤âƱ¤¸Æ°ºî¤ò¤µ¤»¤ë¡£ |
---|
188 | (global-set-key "\F1" 'extend-mode) |
---|
189 | |
---|
190 | ;; Ctrl-o ¤ÎÍÞÀ© |
---|
191 | (global-unbind-key-function 'japanese-mode) |
---|