vine-users ML アーカイブ



[vine-users:055838] emacs21+(tamago で)FreeWnn

  • From: 烈風戦士 <irorin@xxxxxxxxxxxxxxx>
  • Subject: [vine-users:055838] emacs21+(tamago で)FreeWnn
  • Date: Sun, 17 Nov 2002 04:08:16 +0900
色川です。

> 私もVine Linux 2.6で、emacs21.2 + tamago v.4 を使っています。
> 一応 emacs-dl-wnn (emacs20.7の方ですね)と emacs21.2 + tamago v.4
> を使い分ける設定を .emacs.el 書いたので、
> 間違いがあるかもしれませんが、下に書いておきます。
(菊池@春日部さんの設定を参考に)ちょびっとだけ追加してみましたが、
どうでしょう。下の方に書いておきます。
Wnn6 では確認してないですが。
# あとちょびっと工夫すれば、emacs-20.7 + tamago でもいけるように
# なる気がする(canna も FreeWnn も)


> ところで、emacs (20.7のほう)がインストールされていない状態でも、
> apt-get install emacs-dl-wnn
> してもemacs(20.7)はインストールされないのですね。
> 最初、emacs21を使おうと思ってemacs21とemacs-dl-wnnを入れてみたら、
> 日本語変換が出来なくてあせりました(^^;)
> 
> これは仕様なのでしょうか…?

emacs-dl-wnn に PreReq: emacs = 20.7
みたいなことを書いとけば、良いような気もするけど、
emacs21 + emacs-dl-wnn の組合わせで使えると思っている人の誤解
は、解けないような気もします。


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Egg (Wnn フロントエンド) の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Wnn6/FreeWnn
(if (or (equal emacs-ime "wnn")
        (equal emacs-ime "Wnn")
        (equal emacs-ime "wnn6")
        (equal emacs-ime "Wnn6"))
    (cond
     ((>= emacs-major-version 21)

      (progn

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        ;;emacs-dl-wnnでないときの設定( emacs-21 + tamago v4)

        (global-set-key "\C-\\" 'toggle-input-method)
        (load "egg")

        ;; InputMethod の設定
        ;; emacs 起動時 ASCII
        ;(setq default-input-method "japanese-egg-wnn")
        ;; emacs 起動時から日本語入力
        (set-input-method "japanese-egg-wnn")

        ;; jserverの指定
        ;; jserver のリストを次の様にして指定できます
        ;;(setq jserver-list '("vanilla" "espresso"))
        (setq jserver-list (list (getenv "JSERVER") "localhost"))


        ;;--------------------------------------------------------
        ;; tamago v4
        ;;--------------------------------------------------------
        ;; 全般

        ;;(setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
        (garbage-collect)

        ;; "nn" で「ん」を入力
        (setq enable-double-n-syntax t)

        ;; "." で「.」、"," で「,」を入力。
        (setq use-kuten-for-period nil)
        (setq use-touten-for-comma nil)

        )
      )

     ;; emacs-dl-wnn の場合 (emacs-20)
     (t (progn
          (autoload 'egg "egg" "Initialize EGG." t)
          (egg)
          (global-set-key "\C-\\" 'toggle-egg-mode)
          (define-key isearch-mode-map "\C-\\" 'isearch-fep-egg)
          (autoload 'toggle-egg-mode "egg" "Initialize EGG." t)
          (autoload 'isearch-fep-egg "isearch-ext"
            "Read string for incremental search by using egg." t)

          (setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
          (garbage-collect)

          ;; jserver のリストを次の様にして指定できます
          ;;(setq jserver-list '("vanilla" "espresso"))
          (setq jserver-list (list (getenv "JSERVER") "localhost"))

          ;; "nn" で「ん」を入力
          (setq enable-double-n-syntax t)

          ;; "." で「.」、"," で「,」を入力。
          (setq use-kuten-for-period nil)
          (setq use-touten-for-comma nil)

          ;; 1234567890%#%"' を「半角」で入力"
          (let ((its:*defrule-verbose* nil))
            (its-define-mode "roma-kana")
            (dolist (symbol '("1" "2" "3" "4" "5"
                              "6" "7" "8" "9" "0"
                              "#" "%" "\"" "'" ))
              (its-defrule symbol symbol)))

       )
    )
   )
)

--- 
---------1---------2---------3---------4---------5---------6---------7
烈風戦士