Add skk-startup elisp file.

2 files changed, 34 insertions, 1 deletions

diff --git a/japanese/skk10-elisp-emacs20/distinfo b/japanese/skk10-elisp-emacs20/distinfo
index abfc7b22f33f..0d05a2a476c3 100644
--- a/japanese/skk10-elisp-emacs20/distinfo
+++ b/japanese/skk10-elisp-emacs20/distinfo
@@ -1 +1 @@
-MD5 (skk10.56.tar.gz) = 4e54d54a2a204be331c6203d5881b63f
+MD5 (skk10.57.tar.gz) = b8c3170f35234dfeee8a9332be988eec
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)