Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!fgw!fdm!flab!wkenji
From: wkenji@flab.Fujitsu.Co.JP (Kenji WAKAMIYA)
Subject: Re: LaTeX-format-paragraph (Re: help emacs)
In-Reply-To: masutani@gull.mees.osaka-u.ac.jp's message of 28 Feb 93 02:27:18 JST
Message-ID: <WKENJI.93Mar1134056@einstein.center.flab.fujitsu.co.jp>
Sender: news@flab.fujitsu.co.jp
Nntp-Posting-Host: einstein
Organization: Fujitsu Laboratories Ltd., Kawasaki, Japan
References: <WKENJI.93Feb18154943@einstein.center.flab.fujitsu.co.jp>
	<MASUTANI.93Feb28022718@gull.mees.osaka-u.ac.jp>
Distribution: fj
Date: Mon, 1 Mar 1993 04:40:56 GMT
Lines: 62
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3527
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3527&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<c5\!wIY;NDL8&$G$9!%(B

$B<c5\(B> $B<+J,$G$b:n$C$F$_$^$7$?$,!$(BDemacs $B$NElED$5$s$,(B DOS $BBP1~$H0l=o$K$d$C(B
$B<c5\(B> $B$F$/$l$F$$$^$7$?(B :-)$B!%(B

$B>#C+(B> $B$3$l$NF~<jJ}K!$r65$($F$$$?$@$1$^$;$s$+!%(B
$B>#C+(B> AUC-TeX for Demacs$B$N%Q%C%A$K$O4^$^$l$F$$$J$$$h$&$G$9$,!%(B

  ftp.sigmath.osaka-u.ac.jp.:/pub/GNU/Demacs-1.3.3/contrib/auc16d.zip 
  $B$KCV$+$l$F$$$^$9!%(BDemacs $BBP1~!$F|K\8l2=$,$J$5$l$?(B AUC-TeX6.1d $B$N%U%k(B
  $B%;%C%H$G$9!%(B

  auc-nemacs.el$B!$(Bauc-mule.el $B$N%U%#%k4X?t$K$A$g$C$H$7$?%P%0$H(B typo $B$,(B
  $B$"$C$?$N$G!$0J2<$N%Q%C%A$GD>$7$F;H$C$F$$$^$9!JElED$5$s$K$OJs9p:Q$_!K!%(B
--
$B#W%1%s%B!wIY;NDL8&(B
wkenji@flab.Fujitsu.Co.JP
---------->8---------->8---------->8---------->8---------->8----------
--- auc-nemacs.el.origMon Mar  1 13:31:30 1993
+++ auc-nemacs.elMon Mar  1 13:30:36 1993
@@ -16,6 +16,14 @@
     (narrow-to-region (point) to)
     (setq from (point))
 
+    ;; Delete whitespace at beginning of line from every line,
+    ;; except the first line.
+    (goto-char (point-min))
+    (forward-line 1)
+    (while (not (eobp))
+      (delete-horizontal-space)
+      (forward-line 1))
+
     ;; from is now before the text to fill,
     ;; but after any fill prefix on the first line.
 
---------->8---------->8---------->8---------->8---------->8----------
--- auc-mule.el.origMon Mar  1 13:31:23 1993
+++ auc-mule.elMon Mar  1 13:30:36 1993
@@ -1,6 +1,6 @@
-(defvar TeX-process-input-codeing-system nil 
+(defvar TeX-process-input-coding-system nil 
   "TeX-process' kanji code with standard input.")
-(defvar TeX-process-output-codeing-system nil 
+(defvar TeX-process-output-coding-system nil 
   "TeX-process' kanji code with standard output.")
 
 (defun LaTeX-fill-region-as-paragraph (from to &optional justify-flag)
@@ -16,6 +16,14 @@
     (narrow-to-region (point) to)
     (setq from (point))
 
+    ;; Delete whitespace at beginning of line from every line,
+    ;; except the first line.
+    (goto-char (point-min))
+    (forward-line 1)
+    (while (not (eobp))
+      (delete-horizontal-space)
+      (forward-line 1))
+
     ;; Ignore the handling routine related with `fill-prefix'.
 
     ;; from is now before the text to fill,
