Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!mex1!jaist-news!cs.titech!wnoc-tyo-news!ccut!s.u-tokyo!kuis!tgo
From: tgo@kutsuda.kuis.kyoto-u.ac.jp (TGO - Touji Okayama)
Subject: Re: Sorry! (Re: Patch for AUC-tex ver. 6)
In-Reply-To: tgo@kutsuda.kuis.kyoto-u.ac.jp's message of 13 Nov 1992 17:56:47 JST
Message-ID: <TGO.92Nov13184050@shank.kutsuda.kuis.kyoto-u.ac.jp>
Sender: news@kuis.kyoto-u.ac.jp
Nntp-Posting-Host: shank.kutsuda.kuis.kyoto-u.ac.jp
Reply-To: tgo@kutsuda.kuis.kyoto-u.ac.jp
Organization: Kyoto Univ. dept. of Info. Sci. Tsuda Lab.
References: <TUKAMOTO.92Nov11174121@ai0.cs.gunma-u.ac.jp>
	<1086@gunma.cs.gunma-u.ac.jp> <1087@gunma.cs.gunma-u.ac.jp>
	<1091@gunma.cs.gunma-u.ac.jp>
	<TGO.92Nov13170150@shank.kutsuda.kuis.kyoto-u.ac.jp>
	<TGO.92Nov13175647@shank.kutsuda.kuis.kyoto-u.ac.jp>
Distribution: fj
Date: Fri, 13 Nov 1992 09:40:49 GMT
Lines: 261
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3305
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3305&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.

$B2,;3(B@$B5~Bg>pJs(B $B$G$9!#EY!9$I$&$b$9$$$^$;$s!#(B

In article <TGO.92Nov13175647@shank.kutsuda.kuis.kyoto-u.ac.jp>,
    tgo@kutsuda.kuis.kyoto-u.ac.jp (TGO - Touji Okayama) writes:

$BDMK\$5$s(B> $B$3$l$H$OJL$K!";d$N;XE&$7$?LdBj$r2r7h$9$k$K$O!"Nc$($P(B \item $B$N$"$k9T$N(B
$BDMK\$5$s(B> $B:G8e$N(B $B!V$3$l(B<$B2~9T(B>$B!W(B $B$,!"(B $B!V$3$l(B%<$B2~9T(B>$B!W(B $B$K$J$C$F$/$l$l$P$$$$$o$1$G(B
$BDMK\$5$s(B> $B$9!#(B

$BDMK\$5$s(B> $B$H$$$&$o$1$G!"$3$N$h$&$J(B fill $B$r2?$H$+$7$F<B8=$G$-$J$$$G$7$g$&$+!#(B

$B;d(B> $B:n$C$F$_$^$7$?!#(B

$B;d(B> AUC-TeX ver 6.1d (auc-tex.el,v 5.38 1992/09/16 12:14:18 amanda Exp) $B$X$N(B
$B;d(B> $B%Q%C%A$G$9!#B?J,!"(B6a $B$J$s$+$K$bEv$?$k$H;W$$$^$9!#(B

$B;d(B> $B$3$l$O0lC6%-%c%s%;%k$7$^$9!#%P%0$,8+$D$+$j$^$7$?!#(B

$B;d(B> $BD>$7<!Bh!":FEj9F$7$^$9!#(B
$B;d(B> $B8fLBOG$r$*$+$1$7$^$9!#(B

$B:FEj9F$G$9!#(B
$B!t:#EY$O$J$$$@$m$&$J(B....


$B$3$l$O!"DMK\$5$s$,Ej9F$5$l$?!"H7Ln!w:eBg$5$s$N%Q%C%A$r4^$s$G$$$^$9!#(B

$B%Q%C%A$r$"$F!"(Btex-site.el $B$J$I$K(B
(defvar LaTeX-fill-suffix "%")
$B$H=q$$$F$*$/$H!"(Bfill $B$7$?$H$-$K!"9TKv$,4A;z$@$C$?$i(B "%"$B$rA^F~$7$^$9!#(B

(defvar LaTeX-fill-suffix "")
$B$J$i$P!"=>MhDL$j$N(B fill $B$K$J$j$^$9!#(B

$B$?$@$7!"(Bauto-fill $B$K$h$k2~9T$^$G$O9MN8$7$F$*$j$^$;$s!#<jF0$G(B M-q $B$J$j$J(B
$B$s$J$j$7$F2<$5$$!#(B

$B!t(BLaTeX-format-buffer $B$J$s$F$N$b$"$k$1$I!"(Btabular $B$d(B verbatim $B$,L5Cc6lCc(B
$B!t$K$J$k$+$i$J$"!#(B

$B$^$?!"0lEY$D$1$?(B "%" $B$r>C$9J}K!$O$"$j$^$;$s!#<jH4$-$G$9!#(B

$B$"$H!"(BLaTeX-format-{section.environment,...} $B$NF0:n$,JQ$@$C$?$N$G!"$$$8$C(B
$B$F$"$j$^$9!#(B($BM>7W$J2~9T$,F~$k!"I,MW$J2~9T$,>C$($?$j$7$F$$$?!K(B

fill $B$NItJ,$O!"FH<+$K2~NI$7$F$$$?$N$G$9$,!"H7Ln$5$s$N%Q%C%A$r8+$F!"$3$A(B
$B$i$NJ}$,$h$[$I@5Ev$K;W$($?$N$G!"$[$\A4LLE*$K:N$jF~$l$F$$$^$9!#(B
$B;d$N%Q%C%A$rM_$7$$$H$N%a!<%k$r2<$5$C$?J}$N$&$A!";d$,A0$N%Q%C%A$rAw$C$F$7(B
$B$^$C$?J}$O!"=PMh$l$P:#2s$N%Q%C%A$r$"$FD>$7$F2<$5$k$3$H$r$*4+$a$7$^$9!#(B
$B0J>e!"8x6&$N>l$r$*<Z$j$7$^$7$?!#(B

-----------------------------------------------------------------------
$B2,;3F#<#(B $B!w(B $B5~Bg>pJs(B $BDEEDBhFs8&5f<<(Btgo@kutsuda.kuis.kyoto-u.ac.jp


--------------------------- $B@Z$j<h$j@~(B ---------------------------------
*** auc-tex.el.origFri Nov 13 15:35:16 1992
--- auc-tex.elFri Nov 13 18:31:11 1992
***************
*** 512 ****
!  "^.*[^" (regexp-quote TeX-esc) "]%.*$\\|"
--- 512 ----
! ; "^.*[^" (regexp-quote TeX-esc) "]%.*$\\|"
***************
*** 524 ****
!  "^.*[^" (regexp-quote TeX-esc) "]%.*$\\|"
--- 524 ----
! ; "^.*[^" (regexp-quote TeX-esc) "]%.*$\\|"
***************
*** 666,676 ****
!   (save-excursion
!   (let ((indent (calculate-LaTeX-indentation)))
!     (if (/= (current-indentation) indent)
! (let ((beg (progn
!      (beginning-of-line)
!      (point))))
!   (back-to-indentation)
!   (delete-region beg (point))
!   (indent-to indent)))))
!   (if (< (current-column) (calculate-LaTeX-indentation))
!       (back-to-indentation)))
--- 666,678 ----
!   (if (= (point-min) (point-max))
!       nil
!     (save-excursion
!       (let ((indent (calculate-LaTeX-indentation)))
! (if (/= (current-indentation) indent)
!     (let ((beg (progn
!  (beginning-of-line)
!  (point))))
!       (back-to-indentation)
!       (delete-region beg (point))
!       (indent-to indent)))))
!     (if (< (current-column) (calculate-LaTeX-indentation))
! (back-to-indentation))))
***************
*** 677 ****
--- 680 ----
+ ;patched by tgo
***************
*** 690 ****
! 
--- 693 ----
!     
***************
*** 693 ****
! 
--- 696 ----
!     
***************
*** 697 ****
!       (insert ? ))
--- 700,703 ----
!       (if (eobp)
!   nil
! (delete-char 1)
! (insert "  ")))
***************
*** 699 ****
!     (subst-char-in-region from (point-max) ?\n ?\ )
--- 705,715 ----
!     (goto-char from)
!     (while (re-search-forward
!     (concat 
!      (if (string= LaTeX-fill-suffix "")
!  "\\("
!        (concat "[^\\]\\(" LaTeX-fill-suffix "?"))
!      "[\n]+[ \t]*\\)")
!     nil t)
!       (delete-region (match-beginning 1) (match-end 1))
!       (if (or (< (preceding-char) 128) (< (following-char) 128))
!   (insert " ")))
***************
*** 707,708 ****
!        (skip-chars-backward " ])\"'")
!        (memq (preceding-char) '(?. ?? ?!)))
--- 723,724 ----
! (skip-chars-backward " ])\"'")
! (memq (preceding-char) '(?. ?? ?!)))
***************
*** 714 ****
!     (goto-char (point-min))
--- 730 ----
!     (goto-char from)
***************
*** 717 ****
! (move-to-column (1+ fill-column))
--- 733,734 ----
! (move-to-column (- fill-column (length LaTeX-fill-suffix)))
! (or (>= fill-column (current-column)) (backward-char 1))
***************
*** 720,726 ****
!   (skip-chars-backward "^ \n")
!   (if (if (zerop prefixcol)
!   (bolp)
! (>= prefixcol (current-column)))
!       (skip-chars-forward "^ \n")
!     (forward-char -1)))
! (delete-horizontal-space)
--- 737,777 ----
!   (skip-chars-backward " \t")
!   (if (or (<= 128 (preceding-char))
!   (<= 128 (following-char))
!   (= (following-char) ? )
!   (= (following-char) ?\t))
!       (kinsoku-shori)
!     (if (re-search-backward "[ \t\n]\\|\\z"
!     (point-min) (point-min))
! (forward-char 1))
!     (skip-chars-backward " \t")
!     (kinsoku-shori))
!   (if (>= prefixcol (current-column))
!       (progn
! (move-to-column prefixcol)
! (if (re-search-forward "[ \t]\\|\\z"
!        (point-max) (point-max))
!     (backward-char 1))
! (skip-chars-backward " \t")
! (kinsoku-shori)
! (if (>= prefixcol (current-column))
!     (goto-char (point-max))))))
! (if (not kanji-flag) (delete-horizontal-space)
!   (let ((start) (end))
!     (skip-chars-backward " \t")
!     (setq start (point))
!     (skip-chars-forward  " \t")
!     (setq end (point))
!     (delete-region start end)
!     (if (and (not
!       (and (save-excursion
!      (skip-chars-backward " ])\"'")
!      (memq (preceding-char) '(?. ?? ?!)))
!    (= end (+ start 2))))
!      (or (and (or (<= 128 (preceding-char))
!   (<= 128 (following-char)))
!       (< start end)
!       (not (eobp)))
!  (and (memq (preceding-char) '(?. ?? ?!))
!       (= (1+ start) end)
!       (not (eobp)))))
! (insert ?  ))))
***************
*** 728 ****
--- 780,781 ----
+ (if (<= 128 (preceding-char))
+     (insert LaTeX-fill-suffix))
***************
*** 736,737 ****
!        (forward-line 1)))
! )
--- 789 ----
!        (forward-line 1))))
***************
*** 741 ****
--- 794 ----
+ ;patched by tgo
***************
*** 749,753 ****
!     (or (bolp) (newline 1))
!     (let ((end (point-marker))
!   (start (progn
!    (backward-paragraph)
!    (point))))
--- 802,814 ----
!     (let* ((startmark) (endmark)
!    (flag (if (eobp) (progn (setq startmark (point-marker))
!    (insert "\ndummy")
!    (setq endmark (point-marker))
!    t)
!    nil))
!    (end (point-marker))
!    (start (progn
!     (backward-paragraph)
!     (if flag (progn (delete-region startmark endmark)
!     (beginning-of-line)))
! 
!     (point))))
***************
*** 755 ****
--- 817 ----
+ ;patched by tgo
***************
*** 777 ****
!      "\\|^ +$\\|\\'\\)" )
--- 839 ----
!      "\\|^ +$\\|\\'\\|[\n][\n]+\\)" )
***************
*** 824 ****
!     (re-search-forward "{\\([^}]+\\)}")
--- 886 ----
!     (save-excursion (re-search-forward "{\\([^}]+\\)}"))
***************
*** 838 ****
!     (re-search-forward "{\\([^}]+\\)}")
--- 900 ----
!     (save-excursion (re-search-forward "{\\([^}]+\\)}"))
***************
*** 1117,1118 ****
-   
- 
--- 1178 ----
