Add skk-startup elisp file.

1 files changed, 33 insertions, 0 deletions

diff --git a/japanese/skk10-elisp-emacs20/files/skk-startup.el b/japanese/skk10-elisp-emacs20/files/skk-startup.el
new file mode 100644
index 000000000000..f4a0ae717dd6
--- /dev/null
+++ b/japanese/skk10-elisp-emacs20/files/skk-startup.el
@@ -0,0 +1,33 @@
+;;
+;; @(#)skk-startup.el -- skk startup elisp file.	-- shige@FreeBSD.ORG
+;;
+
+;; keybindings
+(global-set-key "\C-x\C-j" 'skk-mode)
+(global-set-key "\C-xt" 'skk-tutorial)
+
+;; autoloads
+(autoload 'skk-mode "skk" nil t)
+(autoload 'skk-tutorial "skk-tut" nil t)
+(autoload 'skk-check-jisyo "skk-tools" nil t)
+(autoload 'skk-merge "skk-tools" nil t)
+(autoload 'skk-diff "skk-tools" nil t)
+(autoload 'skk-isearch-mode-setup "skk-isearch" nil t)
+(autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t)
+
+;; addhooks
+(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)
+		  (skk-set-cursor-color-properly))
+	     )))
+
+;; provide
+(provide 'skk-startup)