From owner-man-jp@jp.freebsd.org  Mon Mar  8 23:20:34 1999
Received: (from daemon@localhost)
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id XAA17370;
	Mon, 8 Mar 1999 23:20:34 +0900 (JST)
	(envelope-from owner-man-jp@jp.FreeBSD.org)
Received: from rishiri.bsys.tsukuba.ac.jp (rishiri.bsys.tsukuba.ac.jp [130.158.223.1])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id XAA17364
	for <man-jp@jp.freebsd.org>; Mon, 8 Mar 1999 23:20:33 +0900 (JST)
	(envelope-from yohta@bsys.tsukuba.ac.jp)
Received: (from yohta@localhost)
	by rishiri.bsys.tsukuba.ac.jp (8.8.8/3.7W) id XAA01480;
	Mon, 8 Mar 1999 23:20:26 +0900 (JST)
Date: Mon, 8 Mar 1999 23:20:26 +0900 (JST)
Message-Id: <199903081420.XAA01480@rishiri.bsys.tsukuba.ac.jp>
To: man-jp@jp.freebsd.org
In-Reply-To: Your message of "Wed, 3 Mar 1999 02:19:43 JST".
	<199903021720.CAA02713@smtp.jp.netlaputa.ne.jp>
From: yohta@bsys.tsukuba.ac.jp (Yoshihiko OHTA)
X-Mailer: mnews [version 1.21] 1997-12/23(Tue)
Reply-To: man-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+981115
X-Sequence: man-jp 1448
Subject: [man-jp 1448] replace section name at once with emacs
Errors-To: owner-man-jp@jp.freebsd.org
Sender: owner-man-jp@jp.freebsd.org
X-Originator: yohta@bsys.tsukuba.ac.jp

$B!!C^GHBg$NB@ED$G$9!#(B

> $B8x3+$9$k$[$I$N$b$s$G$b$"$j$^$;$s$,!"KM$OE:IU%U%!%$%k(B
> $B$N$h$&$J(B sed $BMQCV49%3%^%s%I$r;H$C$F$^$9!#(B
> $B$*Lr$KN)$F$l$P!D(B (EUC $B$GJ]B8$7$F2<$5$$(B)$B!#(B
>   % sed -f command_file orig_file >jp_file
> 
> ## $B$G$bIaCJ(B mule $B$r;H$C$F$k<T$H$7$F$O!"$3$N%3%^%s%I(B
> ## $B8F$S=P$9$@$1$G$b$a$s$I$/$5$$!#(B (^^;)

  $B:#E,Ev$K=q$$$F$_$?$N$G$9$,!"(Bls(1) $B$G;n$7$?$H$3$m!"0l1~$A$c$s$H(B
$BF0$$$F$$$k$h$&$K8+$($^$9!#%F%9%H$7$F$$$?$@$1$k$H$"$j$,$?$$$G$9!#(B
$B$?$@(B Lisp $B$O$h$/$o$+$C$F$J$$$N$G!"K\Ev$KE,Ev$G$9(B ^_^;;

$BL$Lu%U%!%$%k$,FI$_9~$^$l$F$$$k%P%C%U%!>e$G!"(B
M-x translate-man-sections
$B$H$9$l$PJQ49$5$l$k$h$&$K$J$kM=Dj$G$9!#(B


(defun translate-man-sections ()
  "Translate section names in manuals."
  (interactive)
  (mapcar
   (function
    (lambda (args)
      (while (progn (goto-char (point-min))
		    (re-search-forward (car args) nil t))
	(replace-match (cdr args) nil nil))
      ))
   '(("^\.Sh ACKNOWLEDGEMENTS$"		. "\.Sh $B<U<-(B")
     ("^\.Sh AUTHORS?$"			. "\.Sh $B:n<T(B")
     ("^\.Sh AVAILABILITY$"		. "\.Sh $BF~<j@-(B")
     ("^\.Sh BUGS$"			. "\.Sh $B%P%0(B")
     ("^\.Sh CAVEATS$"			. "\.Sh $B7Y9p(B")
     ("^\.Sh COMMANDS$"			. "\.Sh $B%3%^%s%I(B")
     ("^\.Sh COMPATIBILITY$"		. "\.Sh $B8_49@-(B")
     ("^\.Sh DESCRIPTION$"		. "\.Sh $B2r@b(B")
     ("^\.Sh DIAGNOSTICS$"		. "\.Sh $B?GCG(B")
     ("^\.Sh ENVIRONMENT$"		. "\.Sh $B4D6-JQ?t(B")
     ("^\.Sh EXAMPLES?$"		. "\.Sh $B;HMQNc(B")
     ("^\.Sh FEATURES$"			. "\.Sh $BFCD'(B")
     ("^\.Sh FILES$"			. "\.Sh $B4XO"%U%!%$%k(B")
     ("^\.Sh HISTORY$"			. "\.Sh $BNr;K(B")
     ("^\.Sh NAME$"			. "\.Sh $BL>>N(B")
     ("^\.Sh NOTES$"			. "\.Sh $BCm<a(B")
     ("^\.Sh OPTIONS$"			. "\.Sh $B%*%W%7%g%s(B")
     ("^\.Sh SEE ALSO$"			. "\.Sh $B4XO"9`L\(B")
     ("^\.Sh STANDARDS$"		. "\.Sh $B5,3J(B")
     ("^\.Sh SYNOPSIS$"			. "\.Sh $B=q<0(B")
     ("^\.Sh USAGE$"			. "\.Sh $B;HMQK!(B")
     ("^\.Sh WARNING$"			. "\.Sh $B7Y9p(B"))))
--
$BB@EDK'I'(B(Yoshihiko Ohta)  $BC^GHBg3X!!%P%$%*%7%9%F%`8&5f2J(B
E-mail: yohta@bres.tsukuba.ac.jp / s973637@ipe.tsukuba.ac.jp(PostPet)
