1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
2 | ;; -*- coding: utf-8-unix -*- |
---|
3 | ;; FSF Emacs 23 用 Vine Linux SKK 設定 |
---|
4 | ;; Munehiro Yamamoto <munepi@cg8.so-net.ne.jp> |
---|
5 | ;; $Id: vine-default-skk.el,v 1.1 2009/04/23 00:02:56 munepi Exp $ |
---|
6 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
7 | |
---|
8 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
9 | ;; SKK-9.6m |
---|
10 | ;; Mule 上の仮名漢字変換システム SKK の設定 |
---|
11 | ;; C-x t でチュートリアルが起動します |
---|
12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
13 | |
---|
14 | (if (equal emacs-ime "skk") |
---|
15 | (progn |
---|
16 | ;;;;;;;;;; 使用する辞書の設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
17 | |
---|
18 | ;;; SKK-JISYO.L をメモリ上に読み込んで利用する場合 |
---|
19 | (setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L") |
---|
20 | |
---|
21 | ;;; SKK-JISYO.M をメモリ上に読み込み、 |
---|
22 | ;;; 見付からない場合は skkserv を起動して SKK-JISYO.L から検索する場合 |
---|
23 | ;;; (skkexdic パッケージが必要です) |
---|
24 | ;;(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.M") |
---|
25 | ;;(setq skk-aux-large-jisyo "/usr/share/skk/SKK-JISYO.L") |
---|
26 | ;;(setq skk-server-portnum 1178) |
---|
27 | ;;(setq skk-server-host "localhost") |
---|
28 | ;;(setq skk-server-prog "/usr/libexec/skkserv") |
---|
29 | |
---|
30 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
31 | |
---|
32 | (global-set-key "\C-x\C-j" 'skk-mode) |
---|
33 | (global-set-key "\C-xj" 'skk-auto-fill-mode) |
---|
34 | (global-set-key "\C-xt" 'skk-tutorial) |
---|
35 | (autoload 'skk-mode "skk" nil t) |
---|
36 | (autoload 'skk-auto-fill-mode "skk" nil t) |
---|
37 | (autoload 'skk-tutorial "skk-tut" nil t) |
---|
38 | (autoload 'skk-isearch-mode-setup "skk-isearch" nil t) |
---|
39 | (autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t) |
---|
40 | (add-hook 'isearch-mode-hook |
---|
41 | (function (lambda () |
---|
42 | (and (boundp 'skk-mode) skk-mode |
---|
43 | (skk-isearch-mode-setup) )))) |
---|
44 | (add-hook 'isearch-mode-end-hook |
---|
45 | (function (lambda () |
---|
46 | (and (boundp 'skk-mode) skk-mode |
---|
47 | (skk-isearch-mode-cleanup) |
---|
48 | (skk-set-cursor-color-properly) )))) |
---|
49 | |
---|
50 | )) |
---|
51 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
52 | |
---|
53 | (provide 'vine-default-skk) |
---|
54 | |
---|
55 | ;; Local Variables: |
---|
56 | ;; mode: emacs-lisp |
---|
57 | ;; End: |
---|