canna.el

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