Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!endeavor!fdm!flab!koba
From: koba@flab.fujitsu.co.jp (Kobayashi Shinji)
Subject: Re: AUCTeX 9.0v
In-Reply-To: wak@gctech.co.jp's message of 07 Sep 1994 15:12:35 +0900
Message-ID: <KOBA.94Sep7184258@cindy.avalon.flab.fujitsu.co.jp>
Followup-To: fj.comp.texhax
Sender: news@flab.fujitsu.co.jp
Nntp-Posting-Host: cindy.avalon.flab.fujitsu.co.jp
Organization: Fujitsu Laboratories Ltd., Kawasaki, Japan
References: <WAK.94Sep7151235@alpha2-1.gctech.co.jp>
Date: Wed, 7 Sep 1994 09:42:58 GMT
Lines: 73
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5210
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5210&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$B>.NS!wIY;NDL8&$G$9!#(B

>>>>> In article <WAK.94Sep7151235@alpha2-1.gctech.co.jp>,
wak@gctech.co.jp (Wataru Kameyama) writes:

$B55;3(B> 1. Default Mode $B$r(B japanese-latex-mode $B$K$7$?$$(B

 $B4{B8%U%!%$%k$,(B japanese-latex-mode $B$K$J$k$+(B latex-mode $B$K$J$k$+!"$O$?(B
$B$^$?(B slitex-mode $B$K$J$k$+$O!"(BTeX-format-list $B$H$$$&JQ?t$,J];}$9$kCM$G(B
$BH=CG$r9T$C$F$$$^$9!#4{B8%U%!%$%k$N@hF,$NJ}$rD4$Y$F!"E,Ev$J@55,I=8=$K%^%C(B
$B%A$9$l$PBP1~$9$k%b!<%I$K$J$k!"$H$$$&;EAH$_$G$9!#(B(require 'tex-jp) $B$7$F(B
$B$*$/$H!"(Bdocumentstyle{j-article} $B$J$I!"(Bdocumentstyle $BL>$,(B j $B$G;O$^$k>l(B
$B9g$K$O(B japanese-latex-mode $B$K$J$k$h$&$K$J$j$^$9!#(B

$B55;3(B> .emacs $B$K$O(B
$B55;3(B> (setq LaTeX-version "2")
$B55;3(B> (setq TeX-default-mode 'japanese-latex-mode)
$B55;3(B> (add-hook 'text-mode-hook '(lambda () (auto-fill-mode 1)))
$B55;3(B> (require 'tex-site)

 $B$3$N8e$K(B (require 'tex-jp) $B$rDI2C$7$F$/$@$5$$!#(Btex-site.el $B$K4^$a$F$7(B
$B$^$C$F$b9=$$$^$;$s$,!#(Btex-jp.el $B$G$O(B (require 'latex) $B$7$F$7$^$C$F$$$k(B
$B$N$GI,MW$JItJ,$@$1%m!<%I$9$k$3$H$,$G$-$k$H$$$&MxE@$O>/$7<:$o$l$F$7$^$$(B
$B$^$9$,!"$3$l$,0lHV4JC1$G3N<B$JJ}K!$G$9!#(B
 (require 'tex-jp) $B$7$F$$$F$b(B j $B$G;O$^$k(B documentstyle $B$rG'<1$7$J$$$H(B
$B$$$&$3$H$G$"$l$P$b$&>/$7>\$7$$>u67$r65$($F$/$@$5$$!#(Bj $B$G;O$^$i$J$$(B 
documentstyle $B$G$b(B japanese-latex-mode $B$K$7$?$$$H$+$G$"$l$P!"(B
TeX-format-list $B$r%+%9%?%^%$%:$9$k$3$H$G2DG=$G$9!#(Btex-jp.el $B$N@hF,$"$?(B
$B$j$G@_Dj$7$F$$$^$9$+$i!"$3$l$r8+$l$P$o$+$k$N$G$O$J$$$+$H;W$$$^$9!#(B

$B55;3(B> 2. Egg $B$NF~NO$N?6Iq$r85$KD>$7$?$$(B

 AUC TeX 9.0v $B$G$b$=$&$J$j$^$7$?$C$1!)(B 9.1 $B$+$i$N$h$&$J5$$,$9$k$N$G$9(B
$B$,!#!#!#(B9.1i $B$G$O!"<!$N%Q%C%A$rEv$F$k$3$H$GD>$k$O$:$G$9!#>\$7$/$O(B 
fj.editor.emacs $B$K%]%9%H$7$?(B Message-ID:
<KOBA.94Aug19175254@cindy.avalon.flab.fujitsu.co.jp> $B$N5-;v$r;2>H$7$F(B
$B$/$@$5$$!#(B

------------------------------<$B$3$3$+$i(B>------------------------------
--- tex-jp.el~Thu Aug  4 13:33:25 1994
+++ tex-jp.elFri Aug 19 13:15:50 1994
@@ -639,6 +639,24 @@
       (goto-char (point-max))
       (delete-horizontal-space)))))
 
+;;; Support for various self-insert-command
+
+(cond ((fboundp 'can-n-egg-self-insert-command)
+       (fset 'tex-jp-self-insert-command 'can-n-egg-self-insert-command))
+      ((fboundp 'egg-self-insert-command)
+       (fset 'tex-jp-self-insert-command 'egg-self-insert-command))
+      ((fboundp 'canna-self-insert-command)
+       (fset 'tex-jp-self-insert-command 'canna-self-insert-command))
+      (t
+       (fset 'tex-jp-self-insert-command 'self-insert-command)))
+
+(defun TeX-insert-punctuation ()
+  "Insert point or comma, cleaning up preceding space."
+  (interactive)
+  (if (TeX-looking-at-backward "\\\\/\\(}+\\)" 50)
+      (replace-match "\\1" t))
+  (call-interactively 'tex-jp-self-insert-command))
+
 ;;; Error Messages
 
 (if japanese-TeX-error-messages
------------------------------<$B$3$3$^$G(B>------------------------------
--

$B>.NS(B $B?-<#(B ($B$3$P$d$7(B $B$7$s$8(B)
$BIY;NDL8&5f=j(B $B%^%k%A%a%G%#%"%7%9%F%`8&5f=j(B $B%7%9%F%`8&5fItLg(B $B>pJsLV%7%9%F%`8&5fIt(B
koba@flab.fujitsu.co.jp
