SKK専用スレッド Part5

(defvar system-load-path load-path)
(setq my-load-path '("~/.emacs.d/site-lisp/skk"
"~/.emacs.d/site-lisp/apel"
"~/.emacs.d/site-lisp/emu"))
(setq load-path (append my-load-path system-load-path))

(require 'skk-autoloads)
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xj" 'skk-auto-fill-mode)
(global-set-key "\C-xt" 'skk-tutorial)

(setq skk-large-jisyo "~/.emacs.d/skk/SKK-JISYO.L")
;; Specify tutorial location
(setq skk-tut-file "~/.emacs.d/skk/SKK.tut")

(add-hook 'isearch-mode-hook
(function (lambda ()
(and (boundp 'skk-mode) skk-mode
(skk-isearch-mode-setup)))))

(add-hook 'isearch-mode-end-hook
(function
(lambda ()
(and (boundp 'skk-mode) skk-mode (skk-isearch-mode-cleanup))
(and (boundp 'skk-mode-invoked) skk-mode-invoked
(skk-set-cursor-properly)))))