From: tukamoto@cs.gunma-u.ac.jp (Tukamoto Yoshihiro)
Newsgroups: fj.editor.emacs
Subject: Patch for AUC-tex ver. 6
Date: 11 Nov 92 08:41:21 GMT
Distribution: fj
Organization: Gunma Univ.


$@DMK\!w72Bg$G$9!#(J

>$@$J$*(J, hatono@prec.osaka-u.ac.jp $@$5$s$+$i!"(JNTT $@HG$G$b@5$7$/=hM}$G$-$k$h(J
>$@$&(J fill $@$NF0:n$rJQ99$9$k%Q%C%A$r$$$?$@$-$^$7$?(J ($@MWK>$,B?$1$l$P8x3+$7$F(J
>$@$bNI$$$H$NN;2r$rF@$F$$$^$9(J)$@!#(J

$@2??M$+$NJ}$+$i%a%$%k$r$$$?$@$-$^$7$?$N$G!"H7Ln!w:eBg$5$s$N%Q%C%A$r8x3+(J
$@$5$;$F$$$?$@$/$3$H$K$7$^$9(J$@!#(J

$@%Q%C%A$N8x3+$r5v2D$7$F2<$5$C$?H7Ln$5$s!"$J$i$S$K%"%I%P%$%9$r2<$5$C$?J}!9(J
$@$K$"$i$?$a$F46<UCW$7$^$9(J$@!#(J

$@!t$3$N%Q%C%A$O(J AUC-tex $@%P!<%8%g%s#6MQ$G$9!#(J

------------------<cut here>----------------------------------------
*** auc-tex.el	Thu Sep 10 14:40:39 1992
--- auc-tex.el.orig	Tue Sep  8 16:22:53 1992
***************
*** 697,732 ****
  
      ;; Make sure sentences ending at end of line get an extra space.
      (goto-char from)
-     ;;;; patch by S.Tomura 88-Jun-30
-     ;;$@!cE}9g!d(J
-     ;; . + CR             ==> . + SPC + SPC 
-     ;; . + SPC + CR +     ==> . + SPC + 
-     ;;(while (re-search-forward "[.?!][])""']*$" nil t)
-     ;;  (insert ? ))
      (while (re-search-forward "[.?!][])""']*$" nil t)
!       (if (eobp)
! 	  nil
!       (delete-char 1)
!       (insert "  "))) ;;; replace CR by two spaces.
!     ;;; end of patch
      ;; The change all newlines to spaces.
!     ;;; patched by S.Tomura 87-Dec-7
!     ;;; bug fixed by S.Tomura 88-May-25
!     ;;; modified by  S.Tomura 88-Jun-21
!     ;;;(subst-char-in-region from (point-max) ?\n ?\ )
!     ;;;$@F|K\8l$N8l$N8e$K$O6uGr$O$J$$!#(J
!     (goto-char from)
!     (end-of-line)
!     (while (not (eobp))
!       (delete-char 1)
!       (if (and (< ?  (preceding-char)) ;;; + SPC + CR + X ==> + SPC + X
! 	       (< (preceding-char) 128)
! 	       (<= ?  (following-char))
! 	       (< (following-char) 128))
! 	   (insert ?\  ))
!       (end-of-line))
!     ;;; $@<!$N=hM}$GJ8Kv$K$O(Jtwo spaces$@$,$"$j!"$=$l0J30$O(Jsingle space$@$K$J$C$F$$$k!#(J
!     ;;; end of patch
      ;; Flush excess spaces, except in the paragraph indentation.
      (goto-char from)
      (skip-chars-forward " \t")
--- 697,706 ----
  
      ;; Make sure sentences ending at end of line get an extra space.
      (goto-char from)
      (while (re-search-forward "[.?!][])""']*$" nil t)
!       (insert ? ))
      ;; The change all newlines to spaces.
!     (subst-char-in-region from (point-max) ?\n ?\ )
      ;; Flush excess spaces, except in the paragraph indentation.
      (goto-char from)
      (skip-chars-forward " \t")
***************
*** 738,752 ****
  	       (memq (preceding-char) '(?. ?? ?!)))
  	      2 1))
         (match-end 0)))
-     (goto-char from)
-     (skip-chars-forward " \t")
-     (while (re-search-forward " " nil t)
-       (if (<= 128 (following-char))
- 	  (let ((dummy 0))
- 	    (backward-char 1) 
- 	    (if (<= 128 (preceding-char))
- 		(delete-char 1))
- 	    (forward-char 1))))
      (goto-char (point-max))
      (delete-horizontal-space)
      (insert "  ")
--- 712,717 ----
***************
*** 753,830 ****
      (goto-char (point-min))
      (let ((prefixcol 0))
        (while (not (eobp))
! 	;;; patched by S.Tomura 88-Jun-2
! 	;;;(move-to-column (1+ fill-column))
! 	(move-to-column fill-column)
! 	;;; end of patch
! 	;;; patched by S.Tomura 88-Jun-16, 89-Oct-2, 89-Oct-19
! 	;;; $@4A;z%3!<%I$N>l9g$K$O(Jfill-column$@$h$jBg$-$/$J$k$3$H$,$"$k!#(J
! 	(or (>= fill-column (current-column)) (backward-char 1))
! 	;;; end of patch
  	(if (eobp)
  	    nil
! 	  ;;; patched by S.Tomura 87-Jun-2
! 	  ;;;(skip-chars-backward "^ \n")
! 	  ;;;(if (if (zerop prefixcol) (bolp) (>= prefixcol (current-column)))
! 	  ;;;    (skip-chars-forward "^ \n")
! 	  ;;;  (forward-char -1)))
! 	  ;;; $@86B'$H$7$F(Jfill-column$@$h$j:8B&$KJ,3dE@$rC5$9!#(J
! 	  ;;; Find a point to break lines
! 	     (skip-chars-backward " \t") ;; skip SPC and TAB
! 	     (if (or (<= 128 (preceding-char))
! 		     (<= 128 (following-char)) ;;; 88-Aug-25
! 		     (= (following-char) ? )
! 		     (= (following-char) ?\t))
! 		 (kinsoku-shori)
! 	       (if(re-search-backward "[ \t\n]\\|\\z" ;;; 89-Nov-17
! 				      (point-min) (point-min))
! 		   (forward-char 1))
! 	       (skip-chars-backward " \t")
! 	       (kinsoku-shori))
! 	     ;;; prifixcol$@$h$j1&B&$KJ,3dE@$rC5$9!#(J
! 	     ;;; $@$3$N>l9g$OJ,(J$@3dE@$O(Jfill-column$@$h$j1&B&$K$J$k!#(J
! 	     (if (>= prefixcol (current-column))
! 		 (progn
! 		   (move-to-column prefixcol)
! 		   (if (re-search-forward "[ \t]\\|\\z" ;;; 89-Nov-17
! 					  (point-max) (point-max))
! 		       (backward-char 1))
! 		   (skip-chars-backward " \t")
! 		   (kinsoku-shori)
! 		   ;;; $@$=$l$bBLL\$J$iJ,3d$rD|$a$k!#(J
! 		   (if (>= prefixcol (current-column)) (goto-char (point-max))))))
! 	;;; end of patch S.Tomura
! 	;;; patch by S. Tomura 88-Jun-20
! 	;;;(delete-horizontal-space)
!         ;;;$@!cJ,3d!d(J
!         ;;; $@A43Q(J | SPC + SPC$@!v(J   --> $@A43Q(J + SPC + CR
! 	;;; | SPC + SPC* + $@A43Q(J  --> SPC  + CR + $@A43Q(J
!         ;;; . | SPC + SPC +      --> . + CR
!         ;;; . | SPC + nonSPC     --> . + SPC + CR + nonSPC
!         ;;;
!         ;;; . | $@H>3Q(J             --> $@J,3d$7$J$$(J
!         ;;; . | $@A43Q(J             --> $@J,3d$7$J$$(J
! 	(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 ?  ))))
! 	;;; end of patch
  	(if (equal (preceding-char) ?\\)
  	    (insert ? ))
  	(insert ?\n)
--- 718,733 ----
      (goto-char (point-min))
      (let ((prefixcol 0))
        (while (not (eobp))
! 	(move-to-column (1+ fill-column))
  	(if (eobp)
  	    nil
! 	  (skip-chars-backward "^ \n")
! 	  (if (if (zerop prefixcol)
! 		  (bolp)
! 		(>= prefixcol (current-column)))
! 	      (skip-chars-forward "^ \n")
! 	    (forward-char -1)))
! 	(delete-horizontal-space)
  	(if (equal (preceding-char) ?\\)
  	    (insert ? ))
  	(insert ?\n)
------------------<end>-------------------------------------------

--
  $@DMK\(J $@9%9-!w72GOBg3X(J $@>pJs9)3X@l96(J $@=$;N#1G/(J   tukamoto@cs.gunma-u.ac.jp