summaryrefslogtreecommitdiff
path: root/japanese/skk10-elisp-emacs20
diff options
context:
space:
mode:
authorShigeyuki Fukushima <shige@FreeBSD.org>2000-01-19 13:29:39 +0000
committerShigeyuki Fukushima <shige@FreeBSD.org>2000-01-19 13:29:39 +0000
commit9ec3554807544f656f53ecd9fa6587f07e31d32e (patch)
tree309371d99b13020df718f88285d088e7f9e1118c /japanese/skk10-elisp-emacs20
parent* Resolve conflict between the port's 'clock' variable and -current's (diff)
Add skk-startup elisp file.
Notes
Notes: svn path=/head/; revision=24833
Diffstat (limited to 'japanese/skk10-elisp-emacs20')
-rw-r--r--japanese/skk10-elisp-emacs20/distinfo2
-rw-r--r--japanese/skk10-elisp-emacs20/files/skk-startup.el33
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)