[1697] | 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 | |
---|
[1701] | 14 | (if (equal emacs-ime "skk") |
---|
| 15 | (progn |
---|
[1697] | 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 | |
---|
[1701] | 50 | )) |
---|
[1697] | 51 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 52 | |
---|
| 53 | (provide 'vine-default-skk) |
---|
| 54 | |
---|
| 55 | ;; Local Variables: |
---|
| 56 | ;; mode: emacs-lisp |
---|
| 57 | ;; End: |
---|