canna.el

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