From owner-ports-jp@jp.FreeBSD.org Thu Sep 11 15:57:41 2003
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id h8B6vfc40164;
	Thu, 11 Sep 2003 15:57:41 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from ms.is.s.u-tokyo.ac.jp (ms.is.s.u-tokyo.ac.jp [133.11.8.7])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id h8B6vew40159
	for <ports-jp@jp.FreeBSD.org>; Thu, 11 Sep 2003 15:57:40 +0900 (JST)
	(envelope-from tsuyoshi@is.s.u-tokyo.ac.jp)
Received: from localhost (san.is.s.u-tokyo.ac.jp [133.11.28.66])
	by ms.is.s.u-tokyo.ac.jp (8.11.6+Sun/3.7W) with ESMTP id h8B6giM08245
	for <ports-jp@jp.FreeBSD.org>; Thu, 11 Sep 2003 15:42:44 +0900 (JST)
Message-Id: <20030911.155737.74671373.tsuyoshi@is.s.u-tokyo.ac.jp>
To: ports-jp@jp.FreeBSD.org
From: ITO Tsuyoshi <tsuyoshi@is.s.u-tokyo.ac.jp>
In-Reply-To: <20030910.225149.74698168.tsuyoshi@is.s.u-tokyo.ac.jp>
References: <200309100121.h8A1LbCD006206@kiri.slis.tsukuba.ac.jp>
	<86r82pb03w.knu@iDaemons.org>
	<20030910.225149.74698168.tsuyoshi@is.s.u-tokyo.ac.jp>
X-Mailer: Mew version 3.3 on Emacs 21.3 / Mule 5.0 (SAKAKI)
Mime-Version: 1.0
Content-Type: Multipart/Mixed;
 boundary="--Next_Part(Thu_Sep_11_15:57:37_2003_475)--"
Content-Transfer-Encoding: 7bit
Reply-To: ports-jp@jp.FreeBSD.org
Precedence: list
Date: Thu, 11 Sep 2003 15:57:37 +0900
X-Sequence: ports-jp 14122
Subject: [ports-jp 14122] Re: Mew3 ports
Sender: owner-ports-jp@jp.FreeBSD.org
X-Originator: tsuyoshi@is.s.u-tokyo.ac.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+030902

----Next_Part(Thu_Sep_11_15:57:37_2003_475)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

I wrote [ports-jp 14114]:
> Mew $B$N(B info $B$r(B no-split $B$K$7$h$&$H;W$&$H!"(B Mew $B$OB?8@8lBP1~$N$?$a(B 
> makeinfo $B$G$O$J$/(B Emacs Lisp $BHG$G$"$k(B texinfmt.el $B$r;H$C$F$*$j!"(B
> $B$7$+$b(B texinfmt.el $B$N(B no-split $B$X$NBP1~$,IT40A4$J$N$G!"(B
> $B$$$m$$$mLLE]$J$3$H$K$J$j$^$9!#(B

GNU Emacs 21.3 $B$r$*;H$$$N$+$?$O!"(B 
/usr/local/share/emacs/21.3/lisp/textmodes/texinfmt.el $B$KE:IU$N%Q%C%A$r(B
$BEv$F$k$H!"(B batch-texinfo-format-nosplit $B4X?t$,;H$($k$h$&$K$J$j$^$9!#(B
$B$3$l$r(B batch-texinfo-format $B$NBe$o$j$K;H$&$H!"(B texi $B%U%!%$%k$+$i(B
info $B%U%!%$%k$r(B no-split $B$G:n$C$F$/$l$k$O$:$G$9!#(B

$B!J$"$^$j$A$c$s$H%F%9%H$7$F$$$^$;$s$,!#!K(B

$B!JNc$($P(B Mew 3.3 $B$N%"!<%+%$%V$NCf$N(B info/Makefile $B$N(B
  $B!V(B-f batch-texinfo-format$B!W$H=q$$$F$"$k$H$3$m$r(B
  $B!V(B-f batch-texinfo-format-nosplit$B!W$KJQ$($l$P!"(B 
  info $B$r:n$k$H$3$m$^$G$ODL$k$O$:!#!K(B

$B<{MW$,$"$k$h$&$J$i!"(B texinfmt.el $B$N:n<T$N$+$?$K$3$N%Q%C%A$r(B
$B<h$jF~$l$F$b$i$&$h$&;d$+$i$*4j$$$7$F$_$F$b$h$$$G$9$,!"(B
$B$=$N>l9g$O$J$k$Y$/!V$3$N=$@5$K$O<{MW$,$"$k!W$H$$$&$3$H$r(B
$B5R4QE*$K<($;$k1QJ8$N;qNA$r<($7$F$$$?$@$1$k$H=u$+$j$^$9!#(B
$BNc$($P!"(B FreeBSD $B$N(B ports $B$G$O(B no-split $B$r;H$&$N$,I8=`$G$"$k$J$i!"(B
$B$=$&=q$+$l$?1Q8l$N;qNA$,$"$k$H@bF@$9$k:`NA$K$J$j$^$9!#(B

-- $B0KF#(B $B9d;V(B  <tsuyoshi@is.s.u-tokyo.ac.jp> --
-- $B!JEl5~Bg3XBg3X1!>pJsM}9)3X7O8&5f2J(B       --
--        $B%3%s%T%e!<%?2J3X@l96(B $B:#0f8&5f<<!K(B --

----Next_Part(Thu_Sep_11_15:57:37_2003_475)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="texinfmt.el.patch"

Index: texinfmt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/texinfmt.el,v
retrieving revision 1.70
diff -u -r1.70 texinfmt.el
--- texinfmt.el	1 Sep 2003 15:45:40 -0000	1.70
+++ texinfmt.el	10 Sep 2003 12:44:05 -0000
@@ -4270,7 +4270,7 @@
 
 ;;; Batch formatting
 
-(defun batch-texinfo-format ()
+(defun batch-texinfo-format (&optional nosplit)
   "Runs  texinfo-format-buffer  on the files remaining on the command line.
 Must be used only with -batch, and kills emacs on completion.
 Each file will be processed even if an error occurred previously.
@@ -4306,14 +4306,15 @@
             (progn
               (if buffer-file-name (kill-buffer (current-buffer)))
               (find-file file)
-              (buffer-disable-undo (current-buffer))
-              (set-buffer-modified-p nil)
-              (texinfo-mode)
-              (message "texinfo formatting %s..." file)
-              (texinfo-format-buffer nil)
-              (if (buffer-modified-p)
-                  (progn (message "Saving modified %s" (buffer-file-name))
-                         (save-buffer))))
+              (let ((coding-system-for-write buffer-file-coding-system))
+                (buffer-disable-undo (current-buffer))
+                (set-buffer-modified-p nil)
+                (texinfo-mode)
+                (message "texinfo formatting %s..." file)
+                (texinfo-format-buffer nosplit)
+                (if (buffer-modified-p)
+                    (progn (message "Saving modified %s" (buffer-file-name))
+                           (save-buffer)))))
           (error
            (message ">> Error: %s" (prin1-to-string err))
            (message ">>  point at")
@@ -4329,6 +4330,12 @@
              (message ">>  %s" s))
            (setq error 1))))
       (kill-emacs error))))
+
+(defun batch-texinfo-format-nosplit ()
+  "Similar to batch-texinfo-format, except that this one runs
+texinfo-format-buffer with an argument not to split the created info
+file."
+  (batch-texinfo-format t))
 
 
 ;;; Place `provide' at end of file.

----Next_Part(Thu_Sep_11_15:57:37_2003_475)----
