vine-users ML アーカイブ



[vine-users:080862] Re: wnn8 + tamago で母音の過不 足修正を無効にしたい

  • From: ARAI Shun-ichi <hermes@xxxxxxxxxxxxxxx>
  • Subject: [vine-users:080862] Re: wnn8 + tamago で母音の過不 足修正を無効にしたい
  • Date: Thu, 24 Feb 2011 17:27:17 +0900 (JST)
あらいです。

>  wnn7egg だと、define-coding-system がないと言ってエラーになってしまう
> んですよね。私はまだ Emacs22 なので。

 ちょっと思い付きでこんな風にしてみたら動くようになりました。
 どんなものでしょう。

--- /usr/share/emacs/site-lisp/wnn7egg/wnn7egg-com.el	2009-05-06 12:47:40.000000000 +0900
+++ wnn7egg-com.el	2011-02-24 17:26:17.000000000 +0900
@@ -135,19 +135,18 @@
 	      (katakana-jisx0201 . #x80)
 	      (japanese-jisx0208 . #x8080)
 	      (japanese-jisx0212 . #x8000)))
-
-(define-coding-system 'fixed-euc-jp
-  "Coding System for fixed EUC Japanese"
-  :mnemonic ?W
-  :coding-type 'charset
-  :charset-list '(fixed-euc-jp))
 ))
 
 (if (and (string< mule-version "6.0") ;; Emacs 22 or lesser.
 	 (not (coding-system-p 'fixed-euc-jp)))
     (make-coding-system 'fixed-euc-jp 4 ?W 
 		"Coding System for fixed EUC Japanese"
-		(cons ccl-decode-fixed-euc-jp ccl-encode-fixed-euc-jp)))
+		(cons ccl-decode-fixed-euc-jp ccl-encode-fixed-euc-jp))
+  (define-coding-system 'fixed-euc-jp
+    "Coding System for fixed EUC Japanese"
+    :mnemonic ?W
+    :coding-type 'charset
+    :charset-list '(fixed-euc-jp)))
 
 ;; Binary data
 
_______________________________________________
vine-users mailing list
vine-users@xxxxxxxxxxxxxxxxxxxx
http://listserv.linux.or.jp/mailman/listinfo/vine-users