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