From owner-FreeBSD-users-jp@jp.freebsd.org  Sat Oct 20 14:43:13 2001
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id OAA35213;
	Sat, 20 Oct 2001 14:43:13 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from mgate1.sys.hokudai.ac.jp (mgate.sys.hokudai.ac.jp [133.87.1.130])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id OAA35208
	for <FreeBSD-users-jp@jp.freebsd.org>; Sat, 20 Oct 2001 14:43:12 +0900 (JST)
	(envelope-from omatsuda@eng.hokudai.ac.jp)
Received: by mgate1.sys.hokudai.ac.jp (Postfix, from userid 0)
	id 626781448F; Sat, 20 Oct 2001 14:42:37 +0900 (JST)
Received: from wwwcs1.sys.hokudai.ac.jp (localhost [127.0.0.1])
	by mgate1.sys.hokudai.ac.jp (Postfix) with ESMTP id 31C0B1448C
	for <FreeBSD-users-jp@jp.freebsd.org>; Sat, 20 Oct 2001 14:42:37 +0900 (JST)
Received: from kino14-ap.eng.hokudai.ac.jp (kino14-ap.eng.hokudai.ac.jp [133.87.142.98])
	by wwwcs1.sys.hokudai.ac.jp (Postfix) with ESMTP id 9F22886625
	for <FreeBSD-users-jp@jp.freebsd.org>; Sat, 20 Oct 2001 14:42:36 +0900 (JST)
Received: from localhost (localhost.eng.hokudai.ac.jp [127.0.0.1])
	by kino14-ap.eng.hokudai.ac.jp (8.11.1/8.11.1) with ESMTP id f9K5g9O23410
	for <FreeBSD-users-jp@jp.freebsd.org>; Sat, 20 Oct 2001 14:42:09 +0900 (JST)
	(envelope-from omatsuda@eng.hokudai.ac.jp)
To: FreeBSD-users-jp@jp.freebsd.org
X-Mailer: Mew version 1.94.1 on Emacs 19.34 / Mule 2.3 (SUETSUMUHANA)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <20011020144209M.omatsuda@eng.hokudai.ac.jp>
Date: Sat, 20 Oct 2001 14:42:09 +0900
From: Osamu Matsuda <omatsuda@eng.hokudai.ac.jp>
X-Dispatcher: imput version 20000228(IM140)
Lines: 63
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+010328
X-Sequence: FreeBSD-users-jp 64952
Subject: [FreeBSD-users-jp 64952] Wnn7 + emacs-mule-20.7.4.1
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: omatsuda@eng.hokudai.ac.jp

$B>>ED!wKLBg$H?=$7$^$9!#(B

4.4-Release + XFree86-3.3.6$B>e$G(BWnn7($BIUB0$N(Bwnn7egg)+emacs-mule-20.7.4.1
$B$r;H$C$F$*$j$^$9$,!"0J2<$N8=>]$KG:$^$5$l$F$$$^$9!#(B

1) $B%U%'%s%9%b!<%I$GF~NOCf(BBackSpace $B$r2!$9$H!"(B1$B2sL\$O(B beep $B$,LD$k$@$1$G2?(B
$B$b5/$-$J$$!#(B2$B2sL\0J9_$OF~NOJ8;z$r>C5n$7$F$/$l$k!#(B

2) $B%U%'%s%9%b!<%I$GF~NOCf!"%+!<%=%k%-!<$,$-$+$J$$!#(BBackSpace $B$r0l2s2!$7$F(B 
beep $B$,LD$C$?8e$@$H!"%+!<%=%k%-!<$K=>$C$F%+!<%=%k$,F0$/(B

$B$^$k$G%U%'%s%9%b!<%I$K$U$?$D$N>uBV$,$"$C$F!"(BBackSpace$B%-!<$K$h$C$F0lJ}$+(B
$B$iB>J}$KA+0\$7$F$$$k$h$&$K?6$kIq$$$^$9!#(B

$B$I$&$9$l$P!"$b$H$NAGD>$J(BBackSpace$B$KLa$C$F$/$l$k$G$7$g$&$+!)(B

$B;HMQ$7$F$$$k(B .emacs.el $B$O0J2<$NDL$j$G$9!#(B


(set-language-environment 'japanese)

(set-terminal-coding-system 'japanese-iso-8bit-with-esc)
(set-keyboard-coding-system 'japanese-iso-8bit-with-esc)
(modify-coding-system-alist 'process "" 'japanese-iso-8bit-with-esc)

(if (featurep 'xemacs)
(setq load-path (append '("/usr/share/wnn7/elisp/xemacs21") load-path))
(setq load-path (append '("/usr/share/wnn7/elisp/emacs20") load-path)))
(global-set-key "\C-\\" 'toggle-input-method)
(load "wnn7egg-leim")
(if (featurep 'xemacs)
(select-input-method "japanese-egg-wnn7")
(set-input-method "japanese-egg-wnn7"))
(set-language-info "Japanese" 'input-method "japanese-egg-wnn7")




(setq text-mode-hook 'turn-on-auto-fill)
(setq mail-mode-hook 'turn-on-auto-fill)

(if (eq window-system 'x)
   (progn
      (define-key function-key-map [kanji] [?\C-\\])
      (define-key function-key-map [delete] [4])
      (global-set-key [insert] 'overwrite-mode)
      (global-set-key [help] 'help-for-help)
      (put 'delete 'ascii-character 4)
))


; for Wnn
(setq its:*defrule-verbose* nil)
(its-defrule "(" "(" nil nil "roma-kana")
(its-defrule ")" ")" nil nil "roma-kana")
(its-defrule "{" "{" nil nil "roma-kana")
(its-defrule "}" "}" nil nil "roma-kana")
(its-defrule "dhi" "$B$G$#(B" nil nil "roma-kana")
(its-defrule "thi" "$B$F$#(B" nil nil "roma-kana")
(define-key fence-mode-map "\177" 'fence-delete-char)
(define-key fence-mode-map [delete] 'fence-delete-char)
(setq enable-double-n-syntax t)

