Mercurial > hg > xemacs-beta

comparison lisp/mule/canna.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; canna.el --- Interface to the Canna input method.
2
3 ;; This file is part of XEmacs.
4
5 ;; XEmacs is free software; you can redistribute it and/or modify it
6 ;; under the terms of the GNU General Public License as published by
7 ;; the Free Software Foundation; either version 2, or (at your option)
8 ;; any later version.
9
10 ;; XEmacs is distributed in the hope that it will be useful, but
11 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;; General Public License for more details.
14
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with XEmacs; see the file COPYING. If not, write to the
17 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 ;; Boston, MA 02111-1307, USA.
19
20 ;;; Synched up with: Mule 2.3.
21
22 ;; Egg offered some influences to the implementation of
23 ;; Canna on Nemacs/Mule, and this file contains a few part
24 ;; of Egg which is written by S.Tomura, Electrotechnical
25 ;; Lab. (tomura@etl.go.jp)
26
27 ;; Written by Akira Kon, NEC Corporation.
28 ;; E-Mail: kon@d1.bs2.mt.nec.co.jp.
29
30 ;; #### This is far from working in XEmacs.
31
32 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/7
33 (or (fboundp 'minibuffer-prompt-width)
34 (defun minibuffer-prompt-width ()
35 (save-excursion
36 (set-buffer (window-buffer (minibuffer-window)))
37 (current-column)
38 ))
39 )
40 (or (fboundp 'char-before)
41 (defun char-before (pos)
42 (char-after (1- (point)))
43 )
44 )
45 (or (fboundp 'overlayp)
46 (defalias 'overlayp 'extentp)
47 )
48
49 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18
50 (defvar running-xemacs (string-match "XEmacs" emacs-version))
51
52 (if running-xemacs
53 (progn
54 (defun self-insert-string (string)
55 (let ((len (length string))
56 (i 0)
57 ;; $BA^F~$NESCf$G(B blink $B$,5/$-$k$H$&$C$H$*$7$$$N$G!"(B
58 ;; $B0l;~E*$K(B blink $B$rM^;_$9$k!#(B
59 (blink-matching-paren nil))
60 (while (< i len)
61 (self-insert-internal (aref canna-kakutei-string i))
62 (setq i (1+ i))
63 )))
64 )
65 (defun self-insert-string (string)
66 (let ((len (length string))
67 (i 0) chr
68 ;; $BA^F~$NESCf$G(B blink $B$,5/$-$k$H$&$C$H$*$7$$$N$G!"(B
69 ;; $B0l;~E*$K(B blink $B$rM^;_$9$k!#(B
70 (blink-matching-paren nil))
71 (while (< i len)
72 (setq chr (sref canna-kakutei-string i))
73 (self-insert-internal chr)
74 (setq i (+ i (char-bytes chr)))
75 )))
76 )
77
78
79 ;; -*-mode: emacs-lisp-*-
80
81 (defconst canna-rcs-version "Canna/mule 2.x, based on Canna 2.2/3.2. : canna.el,v x.xx 1994/11/7 00:00:00")
82
83 (defun canna-version ()
84 (interactive)
85 (message (concat (substring canna-rcs-version 0 72) " ...")) )
86
87 ;;; $B$+$s$J$NJQ?t(B
88
89 (defvar canna-save-undo-text-predicate nil)
90 (defvar canna-undo-hook nil)
91
92 (defvar canna-do-keybind-for-functionkeys t)
93 (defvar canna-use-functional-numbers nil)
94 (defvar canna-use-space-key-as-henkan-region t)
95
96 (defvar canna-server nil)
97 (defvar canna-file nil)
98
99 (defvar canna-underline nil)
100 (defvar canna-with-fences (not canna-underline))
101
102 (defvar canna-initialize-minibuffer-state-when-exit nil
103 "*Non-nil $B$N$H$-$O(B, $B%_%K%P%C%U%!$rH4$1$k;~F|K\8l>uBV$r=i4|2=$9$k(B.")
104
105 (defvar canna-inhibit-hankakukana nil
106 "*Non-nil $B$N;~!";z<oJQ49$GH>3Q$+$J$KJQ49$7$J$$(B")
107
108 ;;;
109 ;;; $B%b!<%I%i%$%s$N=$@0(B
110 ;;;
111
112 (defvar canna:*kanji-mode-string* "[ $B$"(B ]")
113 (defvar canna:*alpha-mode-string* "$B$+$s$J(B")
114 (defvar canna:*saved-mode-string* "[ $B$"(B ]")
115
116 (defvar mode-line-canna-mode canna:*alpha-mode-string*)
117 (defvar mode-line-canna-mode-in-minibuffer canna:*alpha-mode-string*)
118
119 (defvar display-minibuffer-mode-in-minibuffer nil) ; same name as TAKANA
120 ; $B$?$+$J$G$O(B t $B$,%G%U%)%k%H$@$1$I!"(Bnil $B$r%G%U%)%k%H$K$7$F$*$3$&$+$J!#(B
121
122 (make-variable-buffer-local 'mode-line-canna-mode)
123
124 ; select-window-hook $B$O(B mule $B$+$iF~$C$?$s$@$H;W$&$1$I!"(B
125 ; $B$3$l$,L5$$$H(B preprompt $B$,$"$C$F$b$I$&$7$h$&$b$J$$$N$G$J$$$H$-$O(B
126 ; display-minibuffer-mode-in-minibuffer $B$r(B nil $B$K$9$k!#(B
127
128 (if (not (boundp 'select-window-hook))
129 (setq display-minibuffer-mode-in-minibuffer nil))
130
131 (defun canna:select-window-hook (old new)
132 (if (and (eq old (minibuffer-window))
133 (not (eq new (minibuffer-window))))
134 (save-excursion
135 (set-buffer (window-buffer (minibuffer-window)))
136 ;; minibuffer$B$N%G%U%)%k%H$O%"%k%U%!%Y%C%H%b!<%I(B
137 (setq mode-line-canna-mode-in-minibuffer canna:*alpha-mode-string*
138 canna:*japanese-mode-in-minibuffer* nil
139 minibuffer-preprompt nil)))
140 (if (eq new (minibuffer-window))
141 (setq minibuffer-window-selected t)
142 (setq minibuffer-window-selected nil)))
143
144 ; egg:select-window-hook $B$G$b==J,$J$N$G!"(Begg:select-window-hook $B$,(B
145 ; $B@_Dj$5$l$F$$$J$$>l9g$N$_Dj5A$9$k!#(B
146
147 ; $BNI$/9M$($F$_$k$H(B display-minibuffer-mode-in-minibuffer $B$,(B t $B$N;~$O(B
148 ; $B$d$O$j>e5-$N(B canna:select-window-hook $B$,I,MW$@$J$"!#$I$&$7$h$&!#(B
149
150 (if (and (boundp 'select-window-hook)
151 (not (eq select-window-hook 'egg:select-window-hook)))
152 (setq select-window-hook 'canna:select-window-hook))
153
154 (defun mode-line-canna-mode-update (str)
155 (if (eq (current-buffer) (window-buffer (minibuffer-window)))
156 (if (and display-minibuffer-mode-in-minibuffer
157 (boundp 'minibuffer-preprompt))
158 (setq minibuffer-preprompt str)
159 ;else
160 (setq mode-line-canna-mode-in-minibuffer str))
161 (setq mode-line-canna-mode str))
162 (redraw-modeline))
163
164 ;; memq $B$r6/D4$9$k$J$i!"0J2<$@$,!"(B
165 ;(defun canna:memq-recursive (a l)
166 ; (or (eq a l)
167 ; (and (consp l)
168 ; (or (canna:memq-recursive a (car l))
169 ; (canna:memq-recursive a (cdr l)) ))))
170 ;; $B<!$NDj5A$r;H$*$&(B...
171 (defun canna:memq-recursive (a l)
172 (if (atom l) (eq a l)
173 (or (canna:memq-recursive a (car l))
174 (canna:memq-recursive a (cdr l)) )))
175
176 (defun canna:create-mode-line ()
177 (if (not (canna:memq-recursive 'mode-line-canna-mode mode-line-format))
178 (setq-default
179 mode-line-format
180 (append (list (list 'minibuffer-window-selected
181 (list 'display-minibuffer-mode-in-minibuffer
182 "-" "m") "-")
183 (list 'minibuffer-window-selected
184 (list 'display-minibuffer-mode-in-minibuffer
185 'mode-line-canna-mode
186 'mode-line-canna-mode-in-minibuffer)
187 'mode-line-canna-mode))
188 mode-line-format)))
189 (mode-line-canna-mode-update mode-line-canna-mode) )
190
191 (defun canna:mode-line-display ()
192 (mode-line-canna-mode-update mode-line-canna-mode))
193
194 ;;;
195 ;;; Canna local variables
196 ;;;
197
198 (defvar canna:*japanese-mode* nil "T if canna mode is ``japanese''.")
199 (make-variable-buffer-local 'canna:*japanese-mode*)
200 (set-default 'canna:*japanese-mode* nil)
201
202 (defvar canna:*japanese-mode-in-minibuffer* nil
203 "T if canna mode is ``japanese'' in minibuffer.")
204
205 (defvar canna:*exit-japanese-mode* nil)
206 (defvar canna:*fence-mode* nil)
207 ;(make-variable-buffer-local 'canna:*fence-mode*)
208 ;(setq-default canna:*fence-mode* nil)
209
210 ;;;
211 ;;; global variables
212 ;;;
213
214 (defvar canna-sys:*global-map* (copy-keymap global-map))
215 (defvar canna:*region-start* (make-marker))
216 (defvar canna:*region-end* (make-marker))
217 (defvar canna:*spos-undo-text* (make-marker))
218 (defvar canna:*epos-undo-text* (make-marker))
219 (defvar canna:*undo-text-yomi* nil)
220 (defvar canna:*local-map-backup* nil)
221 (defvar canna:*last-kouho* 0)
222 (defvar canna:*initialized* nil)
223 (defvar canna:*previous-window* nil)
224 (defvar canna:*minibuffer-local-map-backup* nil)
225 (defvar canna:*cursor-was-in-minibuffer* nil)
226 (defvar canna:*menu-buffer* " *menu*")
227 (defvar canna:*saved-minibuffer*)
228 (defvar canna:*saved-redirection* nil)
229 (defvar canna:*use-region-as-henkan-region* nil)
230 (make-variable-buffer-local 'canna:*use-region-as-henkan-region*)
231 (setq-default canna:*use-region-as-henkan-region* nil)
232
233 ;;;
234 ;;; $B?'$N@_Dj(B
235 ;;;
236 (defvar canna-use-color nil
237 "*Non-nil $B$G%+%i!<%G%#%9%W%l%$$G?'$rIU$1$k(B.
238 t $B$N;~$O%G%U%)%k%H$N?'$r;HMQ$9$k!#(B
239 $B?'$r;XDj$7$?$$;~$O(B, \"$BFI$_$N?'(B\", \"$BJQ49BP>]$N?'(B\", \"$BA*BrBP>]$N?'(B\" $B$N(B
240 $B%j%9%H$r@_Dj$9$k(B")
241 (defvar canna:color-p nil "$B?'$,;H$($k$+(B")
242 (defvar canna:attr-mode nil "$B8=:_$N%G%#%9%W%l%$%b!<%I(B")
243 (defvar canna:attr-yomi nil "$BFI$_$N?'B0@-(B")
244 (defvar canna:attr-taishou nil "$BJQ49BP>]ItJ,$N?'B0@-(B")
245 (defvar canna:attr-select nil
246 "$B%_%K%P%C%U%!J,N%;~$N%a%K%e!<$NA*BrBP>]HV9f$N?'B0@-(B")
247 (defvar canna:attribute-alist ;colored by tagu@ae.keio.ac.jp
248 '((yomi (normal . "red")
249 (reverse . "moccasin"))
250 (taishou (normal . "blue/lavender")
251 (reverse . "yellow/cadet blue"))
252 (select (normal . "DarkOliveGreen1/cadet blue")
253 (reverse . "light sea green/burlywood1")))
254 "$B$+$s$JJQ49;~$NG[?'$N(Balist")
255
256 (make-variable-buffer-local (defvar canna:*yomi-overlay* nil))
257 (make-variable-buffer-local (defvar canna:*henkan-overlay* nil))
258 (make-variable-buffer-local (defvar canna:*select-overlay* nil))
259
260 ;;;
261 ;;; $B%-!<%^%C%W%F!<%V%k(B
262 ;;;
263
264 ;; $B%U%'%s%9%b!<%I$G$N%m!<%+%k%^%C%W(B
265 (defvar canna-mode-map (make-sparse-keymap))
266
267 (let ((ch 0))
268 (while (<= ch 127)
269 (define-key canna-mode-map (make-string 1 ch) 'canna-functional-insert-command)
270 (setq ch (1+ ch))))
271
272 (define-key canna-mode-map [up] "\C-p")
273 (define-key canna-mode-map [(shift up)] "\C-p")
274 (define-key canna-mode-map [(control up)] "\C-p")
275 (define-key canna-mode-map [down] "\C-n")
276 (define-key canna-mode-map [(shift down)] "\C-n")
277 (define-key canna-mode-map [(control down)] "\C-n")
278 (define-key canna-mode-map [right] "\C-f")
279 (define-key canna-mode-map [(shift right)] "\C-f")
280 (define-key canna-mode-map [(control right)] "\C-f")
281 (define-key canna-mode-map [left] "\C-b")
282 (define-key canna-mode-map [(shift left)] "\C-b")
283 (define-key canna-mode-map [(control left)] "\C-b")
284 (define-key canna-mode-map [kanji] " ")
285 (define-key canna-mode-map [(control space)] [(control @)])
286
287 ;; $B%_%K%P%C%U%!$K2?$+$rI=<($7$F$$$k;~$N%m!<%+%k%^%C%W(B
288 (defvar canna-minibuffer-mode-map (make-sparse-keymap))
289
290 (let ((ch 0))
291 (while (<= ch 127)
292 (define-key canna-minibuffer-mode-map (make-string 1 ch) 'canna-minibuffer-insert-command)
293 (setq ch (1+ ch))))
294
295 (define-key canna-minibuffer-mode-map [up] "\C-p")
296 (define-key canna-minibuffer-mode-map [(shift up)] "\C-p")
297 (define-key canna-minibuffer-mode-map [(control up)] "\C-p")
298 (define-key canna-minibuffer-mode-map [down] "\C-n")
299 (define-key canna-minibuffer-mode-map [(shift down)] "\C-n")
300 (define-key canna-minibuffer-mode-map [(control down)] "\C-n")
301 (define-key canna-minibuffer-mode-map [right] "\C-f")
302 (define-key canna-minibuffer-mode-map [(shift right)] "\C-f")
303 (define-key canna-minibuffer-mode-map [(control right)] "\C-f")
304 (define-key canna-minibuffer-mode-map [left] "\C-b")
305 (define-key canna-minibuffer-mode-map [(shift left)] "\C-b")
306 (define-key canna-minibuffer-mode-map [(control left)] "\C-b")
307 (define-key canna-minibuffer-mode-map [kanji] " ")
308 (define-key canna-minibuffer-mode-map [(control space)] [(control @)])
309
310 ;;;
311 ;;; $B%0%m!<%P%k4X?t$N=q$-BX$((B
312 ;;;
313
314
315 ;; Keyboard quit
316
317 ;(if (not (fboundp 'canna-sys:keyboard-quit))
318 ; (fset 'canna-sys:keyboard-quit (symbol-function 'keyboard-quit)) )
319
320 ;(defun canna:keyboard-quit ()
321 ; "See documents for canna-sys:keyboard-quit"
322 ; (interactive)
323 ; (if canna:*japanese-mode*
324 ; (progn
325 ;; (setq canna:*japanese-mode* nil)
326 ; (setq canna:*fence-mode* nil)
327 ; (buffer-enable-undo (current-buffer))
328 ; (canna:mode-line-display) ))
329 ; (canna-sys:keyboard-quit) )
330
331 ;; Abort recursive edit
332
333 ;(if (not (fboundp 'canna-sys:abort-recursive-edit))
334 ; (fset 'canna-sys:abort-recursive-edit
335 ; (symbol-function 'abort-recursive-edit)) )
336
337 ;(defun canna:abort-recursive-edit ()
338 ; "see documents for canna-sys:abort-recursive-edit"
339 ; (interactive)
340 ; (if canna:*japanese-mode*
341 ; (progn
342 ; (setq canna:*japanese-mode* nil)
343 ; (setq canna:*fence-mode* nil)
344 ; (buffer-enable-undo (current-buffer))
345 ; (canna:mode-line-display) ))
346 ; (canna-sys:abort-recursive-edit) )
347
348 ;; Exit-minibuffer
349
350 (defun canna:exit-minibuffer ()
351 "Exit minibuffer turning off canna Japanese mode.
352 See also document for canna:saved-exit-minibuffer."
353 (interactive)
354 (if canna-initialize-minibuffer-state-when-exit
355 (setq canna:*japanese-mode-in-minibuffer* nil
356 mode-line-canna-mode-in-minibuffer canna:*alpha-mode-string*))
357 )
358
359 (add-hook 'minibuffer-exit-hook 'canna:exit-minibuffer)
360
361 ;; kill-emacs
362
363 (add-hook 'kill-emacs-hook 'canna:finalize)
364
365 ;;;
366 ;;; function for mini-buffer
367 ;;;
368
369 (defun adjust-minibuffer-mode ()
370 (if (eq (current-buffer) (window-buffer (minibuffer-window)))
371 (progn
372 (setq canna:*japanese-mode* canna:*japanese-mode-in-minibuffer*)
373 t)
374 nil))
375
376 ;;;
377 ;;; keyboard input for japanese language
378 ;;;
379
380 (defun canna-functional-insert-command (arg)
381 "Use input character as a key of complex translation input such as\n\
382 kana-to-kanji translation."
383 (interactive "*p")
384 (canna:functional-insert-command2 last-command-char arg) )
385
386 (defun canna:functional-insert-command2 (ch arg)
387 "This function actualy isert a converted Japanese string."
388 ;; $B$3$N4X?t$OM?$($i$l$?J8;z$rF|K\8lF~NO$N$?$a$N%-!<F~NO$H$7$F<h$j07(B
389 ;; $B$$!"F|K\8lF~NO$NCf4V7k2L$r4^$a$?=hM}$r(BEmacs$B$N%P%C%U%!$KH?1G$5$;$k(B
390 ;; $B4X?t$G$"$k!#(B
391 (canna:display-candidates (canna-key-proc ch)) )
392
393 (defun canna:delete-last-preedit ()
394 (if (not (zerop canna:*last-kouho*))
395 (progn
396 (if canna-underline
397 ; $B$^$:!"B0@-$r>C$9!#(B
398 (progn
399 (canna:henkan-attr-off canna:*region-start* canna:*region-end*)
400 (canna:yomi-attr-off canna:*region-start* canna:*region-end*)))
401 (delete-region canna:*region-start* canna:*region-end*)
402 (setq canna:*last-kouho* 0) )))
403
404 (defun canna:insert-fixed (strs)
405 (cond ((> strs 0)
406 (cond ((and canna-kakutei-yomi
407 (or (null canna-save-undo-text-predicate)
408 (funcall canna-save-undo-text-predicate
409 (cons canna-kakutei-yomi
410 canna-kakutei-romaji) )))
411 (setq canna:*undo-text-yomi*
412 (cons canna-kakutei-yomi canna-kakutei-romaji))
413 (set-marker canna:*spos-undo-text* (point))
414 ;;
415 ;; update kbnes
416 (self-insert-string canna-kakutei-string)
417 ;; $BL$3NDj$NJ8;z$,$J$/!"3NDjJ8;zNs$N:G8e$,JD$83g8L$N(B
418 ;; $BN`$@$C$?$H$-$O(B blink $B$5$;$k!#(B
419 (if (and canna-empty-info
420 (eq (char-syntax (char-before (point))) ?\)) )
421 (blink-matching-open))
422
423 ; (if overwrite-mode
424 ; (let ((num strs)
425 ; (kanji-compare 128))
426 ; (catch 'delete-loop
427 ; (while (> num 0)
428 ; (if (eolp)
429 ; (throw 'delete-loop nil))
430 ; (if (>= (following-char) kanji-compare)
431 ; (setq num (1- num)))
432 ; (delete-char 1)
433 ; (setq num (1- num))))))
434 ;; end kbnes
435 ; (insert canna-kakutei-string)
436 (if self-insert-after-hook
437 (funcall self-insert-after-hook
438 canna:*region-start* canna:*region-end*))
439 (canna:do-auto-fill)
440 (set-marker canna:*epos-undo-text* (point)) )
441 (t
442 ;;
443 ;; update kbnes
444 (self-insert-string canna-kakutei-string)
445 ;; $BL$3NDj$NJ8;z$,$J$/!"3NDjJ8;zNs$N:G8e$,JD$83g8L$N(B
446 ;; $BN`$@$C$?$H$-$O(B blink $B$5$;$k!#(B
447 (if (and canna-empty-info
448 (eq (char-syntax (char-before (point))) ?\)) )
449 (blink-matching-open))
450
451 ; (if overwrite-mode
452 ; (let ((num strs)
453 ; (kanji-compare 128))
454 ; (catch 'delete-loop
455 ; (while (> num 0)
456 ; (if (eolp)
457 ; (throw 'delete-loop nil))
458 ; (if (>= (following-char) kanji-compare)
459 ; (setq num (1- num)))
460 ; (delete-char 1)
461 ; (setq num (1- num))))))
462 ;; end kbnes
463 ; (insert canna-kakutei-string)
464 (if self-insert-after-hook
465 (funcall self-insert-after-hook
466 canna:*region-start* canna:*region-end*))
467 (canna:do-auto-fill) ))
468 ) ))
469
470 (defun canna:insert-preedit ()
471 (cond ((> canna-henkan-length 0)
472 (set-marker canna:*region-start* (point))
473 (if canna-with-fences
474 (progn
475 (insert "||")
476 (set-marker canna:*region-end* (point))
477 (backward-char 1)
478 ))
479 (insert canna-henkan-string)
480 (if (not canna-with-fences)
481 (set-marker canna:*region-end* (point)) )
482 (if canna-underline
483 (canna:yomi-attr-on canna:*region-start* canna:*region-end*))
484 (setq canna:*last-kouho* canna-henkan-length)
485 ))
486
487 ;; $B8uJdNN0h$G$O6/D4$7$?$$J8;zNs$,B8:_$9$k$b$N$H9M$($i(B
488 ;; $B$l$k!#6/D4$7$?$$J8;z$O(BEmacs$B$G$O%+!<%=%k%]%8%7%g%s$K$FI=<((B
489 ;; $B$9$k$3$H$H$9$k!#6/D4$7$?$$J8;z$,$J$$$N$G$"$l$P!"%+!<%=%k(B
490 ;; $B$O0lHV8e$NItJ,(B($BF~NO$,9T$o$l$k%]%$%s%H(B)$B$KCV$$$F$*$/!#(B
491
492 ;; $B%+!<%=%k$r0\F0$9$k!#(B
493 (if (not canna-underline)
494 (backward-char
495 (- canna:*last-kouho*
496 ;; $B%+!<%=%k0LCV$O!"H?E>I=<(ItJ,$,B8:_$7$J$$$N$G$"$l$P!"(B
497 ;; $B8uJdJ8;zNs$N:G8e$NItJ,$H$7!"H?E>I=<(ItJ,$,B8:_$9$k$N(B
498 ;; $B$G$"$l$P!"$=$NItJ,$N;O$a$H$9$k!#(B
499 (cond ((zerop canna-henkan-revlen)
500 canna:*last-kouho*)
501 (t canna-henkan-revpos) )) )
502 (if (and (> canna-henkan-revlen 0)
503 (> canna-henkan-length 0))
504 ; $B8uJd$ND9$5$,(B0$B$G$J$/!"(B
505 ; $BH?E>I=<($ND9$5$,(B0$B$G$J$1$l$P!"(B
506 ; $B$=$NItJ,$rJQE>I=<($9$k!#(B
507 (let ((start (+ canna:*region-start*
508 (if canna-with-fences 1 0)
509 canna-henkan-revpos) ))
510 (if canna-underline
511 (canna:henkan-attr-on start
512 (+ start canna-henkan-revlen)))))
513 ) )
514
515 (defun canna:display-candidates (strs)
516 (cond ((stringp strs) ; $B%(%i!<$,5/$3$C$?>l9g(B
517 (beep)
518 (message strs) )
519 (canna-henkan-string
520 ;; $B$b$78uJdI=<($,A0$N7k2L$+$iJQ$o$C$F$$$J$/$J$$$H$-$O(B......
521
522 ;; $B<h$j9g$($::G=i$OA0$K=q$$$F$*$$$?Cf4V7k2L$r>C$9!#(B
523 (canna:delete-last-preedit)
524
525 ;; $B3NDj$7$?J8;zNs$,$"$l$P$=$l$rA^F~$9$k!#(B
526 (canna:insert-fixed strs)
527
528 ;; $B<!$O8uJd$K$D$$$F$N:n6H$G$"$k!#(B
529
530 ;; $B8uJd$rA^F~$9$k!#8uJd$O=DK@FsK\$K$F64$^$l$k!#(B
531 (canna:insert-preedit)
532 ))
533
534 ;; $B%b!<%I$rI=$9J8;zNs$,B8:_$9$l$P$=$l$r%b!<%I$H$7$F<h$j07$&!#(B
535 (if (stringp canna-mode-string)
536 (mode-line-canna-mode-update canna-mode-string))
537
538 ;; $B8uJdI=<($,$J$1$l$P%U%'%s%9%b!<%I$+$iH4$1$k!#(B
539 (cond (canna-empty-info (canna:quit-canna-mode)))
540
541 ;; $B%_%K%P%C%U%!$K=q$/$3$H$,B8:_$9$k$N$G$"$l$P!"$=$l$r%_%K%P%C%U%!(B
542 ;; $B$KI=<($9$k!#(B
543 (cond (canna-ichiran-string
544 (canna:minibuffer-input canna-ichiran-string
545 canna-ichiran-length
546 canna-ichiran-revpos
547 canna-ichiran-revlen
548 strs) )
549 (canna:*cursor-was-in-minibuffer*
550 ; (select-frame (window-frame (minibuffer-window)))
551 (select-window (minibuffer-window))
552 (set-window-buffer (minibuffer-window)
553 (get-buffer-create canna:*menu-buffer*))
554 (use-local-map canna-minibuffer-mode-map) ))
555 )
556
557 (defun canna:minibuffer-input (str len revpos revlen nfixed)
558 "Displaying misc informations for kana-to-kanji input."
559
560 ;; $B:n6H$r%_%K%P%C%U%!$K0\$9$N$K:]$7$F!"8=:_$N%&%#%s%I%&$N>pJs$rJ]B8(B
561 ;; $B$7$F$*$/!#(B
562 (setq canna:*previous-window* (selected-window))
563 ; (select-frame (window-frame (minibuffer-window)))
564
565 ;; $B<+J,$KMh$kA0$,%_%K%P%C%U%!$+$I$&$+$rJQ?t$K$G$b$$$l$F$*$$$?J}$,$$$$$J$"!#(B
566
567 (if (not canna:*cursor-was-in-minibuffer*)
568 (progn
569 ;; $B%_%K%P%C%U%!$r%/%j%"$9$k!#(B
570 ; (if (eq canna:*previous-window* (selected-window))
571 ; (progn
572 ; (canna:henkan-attr-off (point-min) (point-max))
573 ; (canna:delete-last-preedit) ))
574
575 ;; $B%_%K%P%C%U%!%&%#%s%I%&$K8uJd0lMwMQ$N%P%C%U%!$r3d$jEv$F$k!#(B
576 (setq canna:*saved-minibuffer* (window-buffer (minibuffer-window)))
577 ; (set-window-buffer (minibuffer-window)
578 ; (get-buffer-create canna:*menu-buffer*))
579 ;; modified by $B<i2,(B $BCNI'(B <morioka@jaist.ac.jp>, 1996/6/7
580 ;; $B$H$j$"$($:(B comment out $B$7$F$*$3$&(B (^_^;
581 ;; (setq canna:*saved-redirection* (frame-focus (selected-frame)))
582 ;; (redirect-frame-focus (selected-frame)
583 ;; (window-frame (minibuffer-window)))
584 ;; end of modification
585
586 ;; $B%_%K%P%C%U%!$N%-!<%^%C%W$rJ]B8$7$F$*$/!#(B
587 (setq canna:*minibuffer-local-map-backup* (current-local-map))
588 ))
589 (select-window (minibuffer-window))
590 (set-window-buffer (minibuffer-window)
591 (get-buffer-create canna:*menu-buffer*))
592
593 (use-local-map canna-minibuffer-mode-map)
594
595 ; (canna:yomi-attr-off (point-min) (point-max) )
596 ; (canna:henkan-attr-off (point-min) (point-max) )
597 (canna:select-attr-off (point-min) (point-max) )
598 (setq canna:*cursor-was-in-minibuffer* t)
599 (delete-region (point-min) (point-max))
600 (if (not (eq canna:*previous-window* (selected-window)))
601 (setq minibuffer-window-selected nil))
602
603 (insert str)
604
605 ;; $B%_%K%P%C%U%!$GH?E>I=<($9$k$Y$-J8;z$N$H$3$m$K%+!<%=%k$r0\F0$9$k!#(B
606 (cond ((> revlen 0)
607 (backward-char (- len revpos)) ))
608 ;;(message "%s" (selected-frame)) (sit-for 3)
609 (raise-frame (window-frame (minibuffer-window)))
610 ; (select-frame (window-frame (minibuffer-window)))
611 (and canna:color-p (not (eobp))
612 (canna:select-attr-on (point)
613 (save-excursion (forward-char 1) (point))))
614
615 ;; $B%_%K%P%C%U%!$KI=<($9$k$Y$-J8;zNs$,%L%kJ8;zNs$J$N$G$"$l$P!"A0$N%&%#(B
616 ;; $B%s%I%&$KLa$k!#(B
617 (if (or (zerop len) canna-empty-info)
618 (progn
619 (setq canna:*cursor-was-in-minibuffer* nil)
620 (use-local-map canna:*minibuffer-local-map-backup*)
621
622 ;; $B%_%K%P%C%U%!%&%#%s%I%&$N%P%C%U%!$r85$KLa$9!#(B
623 (set-window-buffer (minibuffer-window) canna:*saved-minibuffer*)
624 ; (setq canna:*saved-minibuffer* nil)
625 ;; modified by $B<i2,(B $BCNI'(B <morioka@jaist.ac.jp>, 1996/6/7
626 ;; $B$H$j$"$($:(B comment out $B$7$F$*$3$&(B (^_^;
627 ;; (redirect-frame-focus (window-frame canna:*previous-window*)
628 ;; canna:*saved-redirection*)
629 ;; end of modification
630 ;; $B%_%K%P%C%U%!$GF~NO$7$F$$$?$N$J$i0J2<$b$9$k!#(B
631 ; (if (eq canna:*previous-window* (selected-window))
632 ; (progn
633 ; (canna:insert-fixed nfixed)
634 ; (canna:insert-preedit) ))
635
636 (if (and canna-empty-info (> len 0))
637 (progn
638 ; (delete-region (point-min) (point-max))
639 (message str) ))
640 (select-window canna:*previous-window*) ))
641 )
642
643 (defun canna-minibuffer-insert-command (arg)
644 "Use input character as a key of complex translation input such as\n\
645 kana-to-kanji translation, even if you are in the minibuffer."
646 (interactive "p")
647 (use-local-map canna:*minibuffer-local-map-backup*)
648 (set-window-buffer (minibuffer-window) canna:*saved-minibuffer*)
649 (select-window canna:*previous-window*)
650 (canna:functional-insert-command2 last-command-char arg) )
651
652 ;;;
653 ;;; $B$+$s$J%b!<%I$N<gLr$O!"<!$N(B canna-self-insert-command $B$G$"$k!#$3$N(B
654 ;;; $B%3%^%s%I$OA4$F$N%0%i%U%#%C%/%-!<$K%P%$%s%I$5$l$k!#(B
655 ;;;
656 ;;; $B$3$N4X?t$G$O!"8=:_$N%b!<%I$,F|K\8lF~NO%b!<%I$+$I$&$+$r%A%'%C%/$7$F!"(B
657 ;;; $BF|K\8lF~NO%b!<%I$G$J$$$N$G$"$l$P!"%7%9%F%`$N(B self-insert-command
658 ;;; $B$r8F$V!#F|K\8lF~NO%b!<%I$G$"$l$P!"%U%'%s%9%b!<%I$KF~$j!"(B
659 ;;; canna-functional-insert-command $B$r8F$V!#(B
660 ;;;
661
662 (if (not (boundp 'MULE)) ; for Nemacs
663 (defun cancel-undo-boundary ()))
664
665 (defun canna-self-insert-command (arg)
666 "Self insert pressed key and use it to assemble Romaji character."
667 (interactive "*p")
668 (adjust-minibuffer-mode)
669 (if (and canna:*japanese-mode*
670 ;; $B%U%'%s%9%b!<%I$@$C$?$i$b$&0lEY%U%'%s%9%b!<%I$KF~$C$?$j$7(B
671 ;; $B$J$$!#(B
672 (not canna:*fence-mode*) )
673 (canna:enter-canna-mode-and-functional-insert)
674 (progn
675 ;; $B0J2<$NItJ,$O(B egg.el $B$N(B 3.09 $B$N(B egg-self-insert-command $B$NItJ,$+$i(B
676 ;; $B%3%T!<$7!"<j$rF~$l$F$$$^$9!#(B93.11.5 kon
677 ;; treat continuous 20 self insert as a single undo chunk.
678 ;; `20' is a magic number copied from keyboard.c
679 ; (if (or ;92.12.20 by T.Enami
680 ; (not (eq last-command 'canna-self-insert-command))
681 ; (>= canna:*self-insert-non-undo-count* 20))
682 ; (setq canna:*self-insert-non-undo-count* 1)
683 ; (cancel-undo-boundary)
684 ; (setq canna:*self-insert-non-undo-count*
685 ; (1+ canna:*self-insert-non-undo-count*)))
686 (if (and (eq last-command 'canna-self-insert-command)
687 (> last-command-char ? ))
688 (cancel-undo-boundary))
689 (self-insert-command arg)
690 ; (if canna-insert-after-hook
691 ; (run-hooks 'canna-insert-after-hook))
692 (if self-insert-after-hook
693 (if (<= 1 arg)
694 (funcall self-insert-after-hook
695 (- (point) arg) (point)))
696 (if (= last-command-char ? ) (canna:do-auto-fill))))))
697
698 (defun canna-toggle-japanese-mode ()
699 "Toggle canna japanese mode."
700 (interactive)
701 (let ((in-minibuffer (adjust-minibuffer-mode)))
702 (cond (canna:*japanese-mode*
703 (setq canna:*japanese-mode* nil)
704 (canna-abandon-undo-info)
705 (setq canna:*use-region-as-henkan-region* nil)
706 (setq canna:*saved-mode-string* mode-line-canna-mode)
707 (mode-line-canna-mode-update canna:*alpha-mode-string*) )
708 (t
709 (setq canna:*japanese-mode* t)
710 (if (fboundp 'canna-query-mode)
711 (let ((new-mode (canna-query-mode)))
712 (if (string-equal new-mode "")
713 (setq canna:*kanji-mode-string* canna:*saved-mode-string*)
714 (setq canna:*kanji-mode-string* new-mode)
715 )) )
716 (mode-line-canna-mode-update canna:*kanji-mode-string*) ) )
717 (if in-minibuffer
718 (setq canna:*japanese-mode-in-minibuffer* canna:*japanese-mode*)) ))
719
720 (defun canna:initialize ()
721 (let ((init-val nil))
722 (cond (canna:*initialized*) ; initialize $B$5$l$F$$$?$i2?$b$7$J$$(B
723 (t
724 (setq canna:*initialized* t)
725 (setq init-val (canna-initialize
726 (if canna-underline 0 1)
727 canna-server canna-file))
728 (cond ((car (cdr (cdr init-val)))
729 (canna:output-warnings (car (cdr (cdr init-val)))) ))
730 (cond ((car (cdr init-val))
731 (error (car (cdr init-val))) ))
732 ) )
733
734 (if (fboundp 'canna-query-mode)
735 (progn
736 (canna-change-mode canna-mode-alpha-mode)
737 (setq canna:*alpha-mode-string* (canna-query-mode)) ))
738
739 (canna-do-function canna-func-japanese-mode)
740
741 (if (fboundp 'canna-query-mode)
742 (setq canna:*kanji-mode-string* (canna-query-mode)))
743
744 init-val))
745
746 (defun canna:finalize ()
747 (cond ((null canna:*initialized*)) ; initialize $B$5$l$F$$$J$+$C$?$i2?$b$7$J$$(B
748 (t
749 (setq canna:*initialized* nil)
750 (let ((init-val (canna-finalize)))
751 (cond ((car (cdr (cdr init-val)))
752 (canna:output-warnings (car (cdr (cdr init-val)))) ))
753 (cond ((car (cdr init-val))
754 (error (car (cdr init-val))) ))
755 )
756 (message "$B!X$+$s$J!Y$N<-=q$r%;!<%V$7$^$9!#(B")
757 )))
758
759 (defun canna:enter-canna-mode ()
760 (if (not canna:*initialized*)
761 (progn
762 (message "$B!X$+$s$J!Y$N=i4|2=$r9T$C$F$$$^$9(B....")
763 (canna:initialize)
764 (message "$B!X$+$s$J!Y$N=i4|2=$r9T$C$F$$$^$9(B....done")
765 ))
766 (canna-set-width (- (window-width (minibuffer-window))
767 (minibuffer-prompt-width)
768 (if (and display-minibuffer-mode-in-minibuffer
769 (eq (selected-window) (minibuffer-window)))
770 (string-width
771 (let ((new-mode (canna-query-mode)))
772 (if (string-equal new-mode "")
773 canna:*saved-mode-string*
774 new-mode)))
775 0)))
776 (setq canna:*local-map-backup* (current-local-map))
777 (setq canna:*fence-mode* t)
778 ;; XEmacs change:
779 (buffer-disable-undo (current-buffer))
780 (use-local-map canna-mode-map))
781
782 (defun canna:enter-canna-mode-and-functional-insert ()
783 (canna:enter-canna-mode)
784 (setq canna:*use-region-as-henkan-region* nil)
785 (setq unread-command-events (list last-command-event)))
786
787 (defun canna:quit-canna-mode ()
788 (cond (canna:*fence-mode*
789 (use-local-map canna:*local-map-backup*)
790 (setq canna:*fence-mode* nil)
791 (if canna:*exit-japanese-mode*
792 (progn
793 (setq canna:*exit-japanese-mode* nil)
794 (setq canna-mode-string canna:*alpha-mode-string*)
795 (if canna:*japanese-mode*
796 (canna-toggle-japanese-mode)
797 (mode-line-canna-mode-update canna:*alpha-mode-string*) )))
798 ;; XEmacs change:
799 (buffer-enable-undo (current-buffer))
800 ))
801 (set-marker canna:*region-start* nil)
802 (set-marker canna:*region-end* nil)
803 )
804
805 (defun canna-touroku ()
806 "Register a word into a kana-to-kanji dictionary."
807 (interactive)
808 ; (if canna:*japanese-mode*
809 (if (not canna:*fence-mode*)
810 (progn
811 (setq canna:*exit-japanese-mode* (not canna:*japanese-mode*))
812 (canna:enter-canna-mode)
813 (canna:display-candidates (canna-touroku-string "")) )
814 (beep)
815 ))
816
817 (defun canna-without-newline (start end)
818 (and (not (eq start end))
819 (or
820 (and (<= end (point))
821 (save-excursion
822 (beginning-of-line)
823 (<= (point) start) ))
824 (and (<= (point) start)
825 (save-excursion
826 (end-of-line)
827 (<= end (point)) ))
828 )))
829
830 (defun canna-touroku-region (start end)
831 "Register a word which is indicated by region into a kana-to-kanji\n\
832 dictionary."
833 (interactive "r")
834 (if (canna-without-newline start end)
835 ; (if canna:*japanese-mode*
836 (if (not canna:*fence-mode*)
837 (progn
838 (setq canna:*use-region-as-henkan-region* nil)
839 (setq canna:*exit-japanese-mode* (not canna:*japanese-mode*))
840 (canna:enter-canna-mode)
841 (canna:display-candidates
842 (canna-touroku-string (buffer-substring start end))) ))
843 (message "$B%j!<%8%g%s$,IT@5$G$9!#%L%k%j!<%8%g%s$+!"2~9T$,4^$^$l$F$$$^$9!#(B")
844 ))
845
846 (defun canna-extend-mode ()
847 "To enter an extend-mode of Canna."
848 (interactive "*")
849 ; (if (and (not (eq (window-frame (minibuffer-window)) (selected-frame)))
850 ; (not canna:*fence-mode*))
851 ;; $B%_%K%P%C%U%!$rJ,N%$7$F$$$k;~$O0l;~E*$K%U%'%s%9%b!<%I$KF~$k(B
852 ;; $B$=$&$7$J$$$H%a%K%e!<$rA*$Y$J$$(B
853 ;; (focus$B$,%_%K%P%C%U%!$K9T$+$J$$$+$i(B)
854 (if (not canna:*fence-mode*)
855 (progn
856 (setq canna:*exit-japanese-mode* (not canna:*japanese-mode*))
857 (canna:enter-canna-mode)
858 (canna:display-candidates
859 (canna-do-function canna-func-extend-mode) ))
860 (beep)))
861
862 (defun canna-kigou-mode ()
863 "Enter symbol choosing mode."
864 (interactive "*")
865 ; (if canna:*japanese-mode*
866 (if (not canna:*fence-mode*)
867 (progn
868 (setq canna:*exit-japanese-mode* (not canna:*japanese-mode*))
869 (canna:enter-canna-mode)
870 (canna:display-candidates (canna-change-mode canna-mode-kigo-mode)) )
871 (beep)
872 ))
873
874 (defun canna-hex-mode ()
875 "Enter hex code entering mode."
876 (interactive "*")
877 ; (if canna:*japanese-mode*
878 (if (not canna:*fence-mode*)
879 (progn
880 (setq canna:*exit-japanese-mode* (not canna:*japanese-mode*))
881 (canna:enter-canna-mode)
882 (canna:display-candidates (canna-change-mode canna-mode-hex-mode)) )
883 (beep)
884 ))
885
886 (defun canna-bushu-mode ()
887 "Enter special mode to convert by BUSHU name."
888 (interactive "*")
889 ; (if canna:*japanese-mode*
890 (if (not canna:*fence-mode*)
891 (progn
892 (setq canna:*exit-japanese-mode* (not canna:*japanese-mode*))
893 (canna:enter-canna-mode)
894 (canna:display-candidates (canna-change-mode canna-mode-bushu-mode)) )
895 (beep)
896 ))
897
898 (defun canna-reset ()
899 (interactive)
900 (message "$B!X$+$s$J!Y$N<-=q$r%;!<%V$7$^$9!#(B");
901 (canna:finalize)
902 (message "$B!X$+$s$J!Y$N:F=i4|2=$r9T$C$F$$$^$9(B....")
903 (canna:initialize)
904 (message "$B!X$+$s$J!Y$N:F=i4|2=$r9T$C$F$$$^$9(B....done")
905 )
906
907
908 (defun canna ()
909 (interactive)
910 (message "$B!X$+$s$J!Y$r=i4|2=$7$F$$$^$9(B....")
911 (let (init-val)
912 (cond ((and (fboundp 'canna-initialize) (fboundp 'canna-change-mode) )
913
914 ;; canna $B$,;H$($k;~$O<!$N=hM}$r$9$k!#(B
915
916 ;; $BG[?'@_Dj(B (by yuuji@ae.keio.ac.jp)
917 (setq canna:color-p (and canna-use-color
918 window-system
919 (x-display-color-p)))
920 ;;$B%+%i!<$N;~(Bunderline$B%b!<%I$HF1$8>uBV$G=i4|2=$9$kI,MW$,$"$k(B
921 (setq canna-underline (or canna:color-p canna-underline))
922 (cond
923 (canna:color-p
924 (setq canna:attr-mode
925 (cond
926 ((or (and (boundp 'hilit-background-mode)
927 (eq hilit-background-mode 'dark))
928 (string-match
929 "on\\|t"
930 (or (x-get-resource "ReverseVideo" "reverseVideo")
931 "")))
932 'reverse) ;$BH?E>$7$F$$$k$J$i(B 'reverse
933 (t 'normal)))
934 (setq canna:attr-yomi
935 (if (listp canna-use-color)
936 (car canna-use-color)
937 (cdr (assq canna:attr-mode
938 (assq 'yomi canna:attribute-alist)))))
939 (setq canna:attr-taishou
940 (if (listp canna-use-color)
941 (car (cdr canna-use-color))
942 (setq canna:attr-taishou
943 (cdr (assq
944 canna:attr-mode
945 (assq 'taishou canna:attribute-alist))))))
946 (setq canna:attr-select
947 (if (listp canna-use-color)
948 (car (cdr (cdr canna-use-color)))
949 (setq canna:attr-select
950 (cdr (assq canna:attr-mode
951 (assq 'select canna:attribute-alist))))))
952 ;;$B?'$E$1MQ(Bface$B$N:n@.(B
953 (mapcar
954 (function
955 (lambda (face)
956 (let* ((color (symbol-value
957 (intern (concat "canna:" (symbol-name face)))))
958 backp)
959 (make-face face)
960 (if (stringp color)
961 (progn
962 (setq backp (string-match "/" color))
963 (set-face-foreground
964 face (substring color 0 backp))
965 (if backp
966 (set-face-background
967 face (substring color (1+ backp)))))
968 (copy-face color face)))))
969 '(attr-yomi attr-taishou attr-select))
970 ))
971 ;;$BG[?'@_Dj=*N;(B
972
973 ;; $B!X$+$s$J!Y%7%9%F%`$N=i4|2=(B
974
975 (setq init-val (canna:initialize))
976
977 ;; $B%-!<$N%P%$%s%G%#%s%0(B
978
979 (let ((ch 32))
980 (while (< ch 127)
981 (define-key global-map (make-string 1 ch) 'canna-self-insert-command)
982 (setq ch (1+ ch)) ))
983
984 (cond ((let ((keys (car init-val)) (ok nil))
985 (while keys
986 (cond ((< (car keys) 128)
987 (global-set-key
988 (make-string 1 (car keys))
989 'canna-toggle-japanese-mode)
990 (setq ok t) ))
991 (setq keys (cdr keys))
992 ) ok))
993 (t ; $B%G%U%)%k%H$N@_Dj(B
994 (global-set-key "\C-o" 'canna-toggle-japanese-mode) ))
995
996 (if (not (keymapp (global-key-binding "\e[")))
997 (global-unset-key "\e[") )
998 (global-set-key "\e[210z" 'canna-toggle-japanese-mode) ; XFER
999 (define-key global-map [kanji] 'canna-toggle-japanese-mode)
1000 (if canna-do-keybind-for-functionkeys
1001 (progn
1002 (global-set-key "\e[28~" 'canna-extend-mode) ; HELP on EWS4800
1003 (global-set-key "\e[2~" 'canna-kigou-mode) ; INS on EWS4800
1004 (global-set-key "\e[11~" 'canna-kigou-mode)
1005 (global-set-key "\e[12~" 'canna-hex-mode)
1006 (global-set-key "\e[13~" 'canna-bushu-mode)
1007 (define-key global-map [help] 'canna-extend-mode)
1008 (define-key global-map [insert] 'canna-kigou-mode)
1009 (define-key global-map [f1] 'canna-kigou-mode)
1010 (define-key global-map [f2] 'canna-hex-mode)
1011 (define-key global-map [f3] 'canna-bushu-mode)
1012 ))
1013
1014 (if canna-use-space-key-as-henkan-region
1015 (progn
1016 (global-set-key "\C-@" 'canna-set-mark-command)
1017 ;; X Window $B$O(B C-@ $B$H(B C-SPC $B$r6hJL$9$k$N$G!"$3$l$,I,MW!#(B
1018 (global-set-key [?\C-\ ] 'canna-set-mark-command)
1019 (global-set-key " " 'canna-henkan-region-or-self-insert) ))
1020
1021 ;; $B%b!<%I9T$N:n@.(B
1022
1023 (canna:create-mode-line)
1024 (mode-line-canna-mode-update canna:*alpha-mode-string*)
1025
1026 ;; $B%7%9%F%`4X?t$N=q$-BX$((B
1027
1028 ; (fset 'abort-recursive-edit
1029 ; (symbol-function 'canna:abort-recursive-edit))
1030 ; (fset 'keyboard-quit
1031 ; (symbol-function 'canna:keyboard-quit))
1032
1033 )
1034
1035 ((fboundp 'canna-initialize)
1036 (beep)
1037 (with-output-to-temp-buffer "*canna-warning*"
1038 (princ "$B$3$N(B Mule $B$G$O(B new-canna $B$,;H$($^$;$s(B")
1039 (terpri)
1040 (print-help-return-message)) )
1041
1042 (t ; $B!X$+$s$J!Y%7%9%F%`$,;H$($J$+$C$?;~$N=hM}(B
1043 (beep)
1044 (with-output-to-temp-buffer "*canna-warning*"
1045 (princ "$B$3$N(B Mule $B$G$O(B canna $B$,;H$($^$;$s(B")
1046 (terpri)
1047 (print-help-return-message))
1048 ))
1049 (message "$B!X$+$s$J!Y$r=i4|2=$7$F$$$^$9(B....done")
1050 ) )
1051
1052 ;;;
1053 ;;; auto fill controll (from egg)
1054 ;;;
1055
1056 (defun canna:do-auto-fill ()
1057 (if (and auto-fill-function (not buffer-read-only)
1058 (> (current-column) fill-column))
1059 (let ((ocolumn (current-column)))
1060 (funcall auto-fill-function)
1061 (while (and (< fill-column (current-column))
1062 (< (current-column) ocolumn))
1063 (setq ocolumn (current-column))
1064 (funcall auto-fill-function)))))
1065
1066 (defun canna:output-warnings (mesg)
1067 (with-output-to-temp-buffer "*canna-warning*"
1068 (while mesg
1069 (princ (car mesg))
1070 (terpri)
1071 (setq mesg (cdr mesg)) )
1072 (print-help-return-message)))
1073
1074 (defun canna-undo (&optional arg)
1075 (interactive "*p")
1076 (if (and canna:*undo-text-yomi*
1077 (eq (current-buffer) (marker-buffer canna:*spos-undo-text*))
1078 ; (canna-without-newline canna:*spos-undo-text*
1079 ; canna:*epos-undo-text*)
1080 )
1081 (progn
1082 (message "$BFI$_$KLa$7$^$9!*(B")
1083 ; (switch-to-buffer (marker-buffer canna:*spos-undo-text*))
1084 (goto-char canna:*spos-undo-text*)
1085 (delete-region canna:*spos-undo-text*
1086 canna:*epos-undo-text*)
1087
1088 (if (null canna:*japanese-mode*)
1089 (progn
1090 (setq canna:*exit-japanese-mode* t) ))
1091 ; (canna-toggle-japanese-mode) ))
1092 (if (not canna:*fence-mode*)
1093 ;; $B%U%'%s%9%b!<%I$@$C$?$i$b$&0lEY%U%'%s%9%b!<%I$KF~$C$?$j$7(B
1094 ;; $B$J$$!#(B
1095 (canna:enter-canna-mode) )
1096 (canna:display-candidates
1097 (let ((texts (canna-store-yomi (car canna:*undo-text-yomi*)
1098 (cdr canna:*undo-text-yomi*) )) )
1099 (cond (canna-undo-hook
1100 (funcall canna-undo-hook))
1101 (t texts) )))
1102 (canna-abandon-undo-info)
1103 )
1104 (canna-abandon-undo-info)
1105 (undo arg) ))
1106
1107 (defun canna-abandon-undo-info ()
1108 (interactive)
1109 (setq canna:*undo-text-yomi* nil)
1110 (set-marker canna:*spos-undo-text* nil)
1111 (set-marker canna:*epos-undo-text* nil) )
1112
1113 (defun canna-henkan-region (start end)
1114 "Convert a text which is indicated by region into a kanji text."
1115 (interactive "*r")
1116 (if (null canna:*japanese-mode*)
1117 (progn
1118 (setq canna:*exit-japanese-mode* t) ))
1119 ; (canna-toggle-japanese-mode) ))
1120 (let ((res nil))
1121 (setq res (canna-store-yomi (buffer-substring start end)))
1122 (delete-region start end)
1123 (canna:enter-canna-mode)
1124 (if (fboundp 'canna-do-function)
1125 (setq res (canna-do-function canna-func-henkan)))
1126 (canna:display-candidates res) ))
1127
1128 ;;;
1129 ;;; $B%^!<%/%3%^%s%I!$(Bcanna-henkan-region-or-self-insert $B$G;H$&$+$b(B
1130 ;;;
1131
1132 (defun canna-set-mark-command (arg)
1133 "Besides setting mark, set mark as a HENKAN region if it is in\n\
1134 the japanese mode."
1135 (interactive "P")
1136 (set-mark-command arg)
1137 (if canna:*japanese-mode*
1138 (progn
1139 (setq canna:*use-region-as-henkan-region* t)
1140 (message "Mark set($BJQ49NN0h3+;O(B)") )))
1141
1142 (defun canna-henkan-region-or-self-insert (arg)
1143 "Do kana-to-kanji convert region if HENKAN region is defined,\n\
1144 self insert otherwise."
1145 (interactive "*p")
1146 (if (and canna:*use-region-as-henkan-region*
1147 ; (< (mark) (point))
1148 ; (not (save-excursion (beginning-of-line) (< (mark) (point)))) )
1149 (canna-without-newline (region-beginning) (region-end)))
1150 (progn
1151 (setq canna:*use-region-as-henkan-region* nil)
1152 (canna-henkan-region (region-beginning) (region-end)))
1153 (canna-self-insert-command arg) ))
1154
1155 ;;
1156 ;; for C-mode
1157 ;;
1158
1159 (defun canna-electric-c-terminator (arg)
1160 (interactive "P")
1161 (if canna:*japanese-mode*
1162 (canna-self-insert-command arg)
1163 (electric-c-terminator arg) ))
1164
1165 (defun canna-electric-c-semi (arg)
1166 (interactive "P")
1167 (if canna:*japanese-mode*
1168 (canna-self-insert-command arg)
1169 (electric-c-semi arg) ))
1170
1171 (defun canna-electric-c-brace (arg)
1172 (interactive "P")
1173 (if canna:*japanese-mode*
1174 (canna-self-insert-command arg)
1175 (electric-c-brace arg) ))
1176
1177 (defun canna-c-mode-hook ()
1178 (define-key c-mode-map "{" 'canna-electric-c-brace)
1179 (define-key c-mode-map "}" 'canna-electric-c-brace)
1180 (define-key c-mode-map ";" 'canna-electric-c-semi)
1181 (define-key c-mode-map ":" 'canna-electric-c-terminator) )
1182
1183 (defun canna-set-fence-mode-format (fence sep underline)
1184 (setq canna-with-fences fence)
1185 (canna-set-bunsetsu-kugiri sep)
1186 (setq canna-underline underline)
1187 )
1188
1189 ;; $B%j!<%8%g%s$K$"$k%m!<%^;z$r!X$+$s$J!Y$K?)$o$9!#(B
1190 ;; $B7k2L$H$7$F!"!X$+$s$J!Y$NFI$_%b!<%I$K$J$k!#(B
1191 ;; $B%j!<%8%g%s$KB8:_$7$F$$$k6uGrJ8;z$H@)8fJ8;z$O<N$F$i$l$k!#(B
1192
1193 (defun canna-rk-region (start end)
1194 "Convert region into kana."
1195 (interactive "*r")
1196 (let ((str nil) (len 0) (i 0) (res 0))
1197 (setq str (buffer-substring start end))
1198 (setq len (length str))
1199 (while (< i len)
1200 (let ((ch (elt str i)))
1201 (if (> ch ? )
1202 (setq res (canna-do-function canna-func-functional-insert ch)) ))
1203 (setq i (1+ i)) )
1204 res))
1205
1206 (defun canna-rk-trans-region (start end)
1207 "Insert alpha-numeric string as it is sent from keyboard."
1208 (interactive "*r")
1209 (let ((res))
1210 (setq res (canna-rk-region start end))
1211 (delete-region start end)
1212 (if (null canna:*japanese-mode*)
1213 (progn
1214 (setq canna:*exit-japanese-mode* t) ))
1215 (setq res (canna-do-function canna-func-henkan))
1216 (canna:enter-canna-mode)
1217 (canna:display-candidates res) ))
1218
1219 ;; $B%+!<%=%k$N:8$K$"$k(B arg $B%o!<%I$N%m!<%^;z$r!X$+$s$J!Y$K?)$o$9!#(B
1220
1221 (defun canna-rk-trans (arg)
1222 (interactive "*p")
1223 (let ((po (point)))
1224 (skip-chars-backward "-a-zA-Z.,?!~")
1225 (if (not (eq (point) po))
1226 (canna-rk-trans-region (point) po) )))
1227
1228 (defun canna-henkan-kakutei-and-self-insert (arg)
1229 (interactive "*p")
1230 (if canna:*japanese-mode*
1231 (canna-functional-insert-command arg)
1232 (progn
1233 (setq unread-command-events (list last-command-event))
1234 (canna-kakutei-to-basic-stat)) ))
1235
1236 (defun canna-kakutei-to-basic-stat ()
1237 (let ((res 0)
1238 (kakutei canna-henkan-string))
1239 (while (not canna-empty-info)
1240 ; (setq res (canna-key-proc ?\C-m)))
1241 (setq res (canna-do-function canna-func-kakutei)))
1242 (setq canna-kakutei-string kakutei)
1243 (canna:display-candidates (length canna-kakutei-string))
1244 (if (not canna:*japanese-mode*)
1245 (mode-line-canna-mode-update canna:*alpha-mode-string*))
1246 ))
1247
1248 (defun canna-minibuffer-henkan-kakutei-and-self-insert (arg)
1249 (interactive "p")
1250 (set-window-buffer (minibuffer-window) canna:*saved-minibuffer*)
1251 (select-window canna:*previous-window*)
1252 (if canna:*japanese-mode*
1253 (canna:functional-insert-command2 last-command-event arg)
1254 (progn
1255 (setq unread-command-events (list last-command-event))
1256 (canna-kakutei-to-basic-stat)) ))
1257
1258 (defun canna-setup-for-being-boiled ()
1259 (let ((ch (1+ ? )))
1260 (while (< ch 127)
1261 (define-key canna-mode-map (make-string 1 ch) 'canna-henkan-kakutei-and-self-insert)
1262 (define-key canna-minibuffer-mode-map (make-string 1 ch) 'canna-minibuffer-henkan-kakutei-and-self-insert)
1263 (setq ch (1+ ch)))))
1264
1265 (defvar rK-trans-key "\C-j" "for `boil' only")
1266 (make-variable-buffer-local 'rK-trans-key)
1267
1268 (defun canna-boil ()
1269 "`canna-boil' cooks `canna' as if `boil' does for `egg'."
1270 (interactive)
1271 (canna-setup-for-being-boiled)
1272 (local-set-key rK-trans-key 'canna-rk-trans)
1273 (message "boiled"))
1274
1275 ;;
1276 ;; $B?'$E$1$N$?$a$N4X?t(B
1277 ;;
1278 (defun canna:yomi-attr-on (start end)
1279 (if (overlayp canna:*yomi-overlay*)
1280 (move-overlay canna:*yomi-overlay* start end)
1281 (overlay-put (setq canna:*yomi-overlay* (make-overlay start end nil t))
1282 'face
1283 (if canna:color-p 'attr-yomi 'underline))
1284 )
1285 )
1286
1287 (defun canna:yomi-attr-off (start end);
1288 (and (overlayp canna:*yomi-overlay*)
1289 (delete-overlay canna:*yomi-overlay*)
1290 )
1291 )
1292
1293 (defun canna:henkan-attr-on (start end)
1294 (if (overlayp canna:*henkan-overlay*)
1295 (move-overlay canna:*henkan-overlay* start end)
1296 (overlay-put (setq canna:*henkan-overlay* (make-overlay start end nil t))
1297 'face
1298 (if canna:color-p 'attr-taishou 'region))
1299 )
1300 )
1301
1302 (defun canna:henkan-attr-off (start end)
1303 (and (overlayp canna:*henkan-overlay*)
1304 (delete-overlay canna:*henkan-overlay*)
1305 )
1306 )
1307
1308 (defun canna:select-attr-on (start end)
1309 (if (overlayp canna:*select-overlay*)
1310 (move-overlay canna:*select-overlay* start end)
1311 (overlay-put (setq canna:*select-overlay* (make-overlay start end nil t))
1312 'face
1313 'attr-select))
1314 )
1315
1316 (defun canna:select-attr-off (start end)
1317 (and (overlayp canna:*select-overlay*)
1318 (delete-overlay canna:*select-overlay*)
1319 )
1320 )
1321
1322 (provide 'canna)