jeff2の日記： canna.el for emacs23

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; かんなの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (and (boundp 'CANNA) CANNA) ; 『かんな/emacs』であることを確認
        (progn
            (load-library "canna")
            (canna)

            (setq canna-use-color t)

            (global-set-key "\C-_" 'canna-undo) ;アンドゥの設定。
            (setq canna-save-undo-text-predicate ;アンドゥバッファへ入れる条件
                        '(lambda (s) (> (length (car s)) 2)) )
            (setq canna-undo-hook ;アンドゥ＋α。
                        '(lambda () (message "再変換します....")
                              (canna-do-function canna-func-henkan)) )

            ;;かんなの変換中に BS & DEL を使う
            ;;(define-key canna-mode-map [backspace] [?\C-h])
            ;;(define-key canna-mode-map [delete] [?\C-h])

            ;;かんなの変換中に C-h を使う (with term/keyswap)
            (define-key canna-mode-map [?\177] [?\C-h])

            ))