canna.el

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