Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sh.wide!fgw!fdm!flab!koba
From: koba@flab.fujitsu.co.jp (Kobayashi Shinji)
Subject: Re: TeX-insert-punctuation in AUC-TeX 9.1
In-Reply-To: masutani@gull.me.es.osaka-u.ac.jp's message of 18 Aug 1994 12:14:59 +0900
Message-ID: <KOBA.94Aug19175254@cindy.avalon.flab.fujitsu.co.jp>
Sender: news@flab.fujitsu.co.jp
Nntp-Posting-Host: cindy.avalon.flab.fujitsu.co.jp
Organization: Fujitsu Laboratories Ltd., Kawasaki, Japan
References: <MASUTANI.94Aug18121459@gull.me.es.osaka-u.ac.jp>
Distribution: fj
Date: Fri, 19 Aug 1994 08:52:54 GMT
Lines: 55
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4925
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4925&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

>>>>> "$B>#C+(B" == MASUTANI Yasuhiro <masutani@gull.me.es.osaka-u.ac.jp> writes:

$B>#C+(B> AUC-TeX 9.1$B$G!$(B"."$B$d(B","$B$K3d$jIU$1$i$l$F$$$k(BTeX-insert-punctuation$B$H$$(B
$B>#C+(B> $B$&4X?t$O$I$&$$$&Lr3d$,$"$k$N$G$7$g$&$+(B? 

 $B$3$l$O%$%?%j%C%/Jd@5$r<h$k$?$a$N$b$N$G$9$M!#$?$H$($P!"(BC-c C-f C-i $B$H(B
$B$9$k$H(B {\it \/} $B$,A^F~$5$l$k$N$G(B {\it abc\/} $B$J$I$HBG$C$F$$$/$3$H$K$J(B
$B$j$^$9!#$=$N>uBV$G(B C-c } $B$J$I$G(B } $B$N<!$K%+!<%=%k$r0\F0$7$F$+$i(B , $B$d(B . 
$B$rF~NO$9$k$H%$%?%j%C%/Jd@5$N(B \/ $B$,>C$($F(B {\it abc}, $B$N$h$&$K$J$k$H$$(B
$B$&$b$N$G$9!#(B

$B>#C+(B> $B$3$N4X?t$N3d$jIU$1$,$"$k$;$$$G!$(BCanna$B$d(BWnn$B$r;H$C$F$$$k$H!$!V!%!W$d!V!#!W(B
$B>#C+(B> $B$d!V!$!W$d!V!"!W$rC1FH$GF~NO$9$k$3$H$,$G$-$^$;$s!%ITJX$G$9!%$7$g$&$,$J(B
$B>#C+(B> $B$$$N$G!$(Begg-self-insert-command$B$d(Bcanna-self-insert-command$B$K3d$jIU$1D>(B
$B>#C+(B> $B$7$F$$$^$9!%$b$C$?$$$J$$(B?

 $B$3$s$J%Q%C%A$G$I$&$G$7$g$&!)(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
