🚀 go-pugleaf

--Multipart_Fri_Jun__9_10:47:08_2000-1
Content-Type: text/plain; charset=ISO-2022-JP

$BEZ20$G$9!#(B


>> On 09 Jun 2000 09:57:33 +0900
>> handa@etl.go.jp (Kenichi Handa) said as follows:

>> $B$=$l$+$i!"(B
>>           x*   x-$ _^H$B$N(B_^H$B>J(B_^H$BN,(B_^H$B7A(B
>> $B$3$&$$$&$N$b@07A$9$k5!G=$rDI2C$7$F$_$^$7$?!#(B

>$B$"$l!)$3$N%Q%?!<%s$O%*%j%8%J%k$N(B man.el $B$N(B
> (while (search-forward "_\b" nil t)
> (backward-delete-char 2)
> (put-text-property (point) (1+ (point)) 'face Man-underline-face))
>$B$G5[<}$5$l$^$;$s$+!)(B

$B$3$l$O!"85!9$O!"(B

    __^H^H$B>J(B__^H^H$BN,(B__^H^H$B7A(B

$B$H$$$&=PNO$G$"$C$?$b$N$,!"H>ED$5$s$,;XE&$5$l$?%3!<%I$K$h$C$F@07A$5$l$F!"(B
$B;32,$5$s$,8@$o$l$?$h$&$J=PNO$K$J$C$F$$$k$N$@$H;W$o$l$^$9!#(B

$B$=$s$J$o$1$G!";d$O!"0J2<$N$h$&$K(B Man-fontify-manpage $B$r:FDj5A$7$F;H$C(B
$B$F$$$^$9!#(B


--Multipart_Fri_Jun__9_10:47:08_2000-1
Content-Type: text/plain; charset=US-ASCII

(defun Man-fontify-manpage () "\
Convert overstriking and underlining to the correct fonts.
Same for the ANSI bold and normal escape sequences."
  (interactive)
  (message "Please wait: making up the %s man page..." Man-arguments)
  (goto-char (point-min))
  (while (search-forward "\e[1m" nil t)
    (delete-backward-char 4)
    (put-text-property (point)
		       (progn (if (search-forward "\e[0m" nil 'move)
				  (delete-backward-char 4))
			      (point))
		       'face Man-overstrike-face))
  (goto-char (point-min))
  (while (re-search-forward "\\(__\b\b\\)\\(\\cj\\)" nil t)
    (replace-match "\\2")
    (put-text-property (1- (point)) (point) 'face Man-underline-face))
  (goto-char (point-min))
  (while (search-forward "_\b" nil t)
    (backward-delete-char 2)
    (put-text-property (point) (1+ (point)) 'face Man-underline-face))
  (goto-char (point-min))
  (while (search-forward "\b_" nil t)
    (backward-delete-char 2)
    (put-text-property (1- (point)) (point) 'face Man-underline-face))
  (goto-char (point-min))
  (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t)
    (replace-match "\\1")
    (put-text-property (1- (point)) (point) 'face Man-overstrike-face))
  (goto-char (point-min))
  (while (re-search-forward "\\(\\cj\\)\\(\b\b\\1\\)+" nil t)
    (replace-match "\\1")
    (put-text-property (1- (point)) (point) 'face Man-overstrike-face))
  (goto-char (point-min))
  (while (re-search-forward "o\b\\+\\|\\+\bo" nil t)
    (replace-match "o")
    (put-text-property (1- (point)) (point) 'face 'bold))
  (goto-char (point-min))
  (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t)
    (replace-match "+")
    (put-text-property (1- (point)) (point) 'face 'bold))
  (Man-softhyphen-to-minus)
  (message "%s man page made up" Man-arguments)))

--Multipart_Fri_Jun__9_10:47:08_2000-1
Content-Type: text/plain; charset=ISO-2022-JP


$B$=$l$+$i!"F|K\8l(B Man $B$KBP1~$9$k$N$G$7$?$i!"(B

(setq Man-see-also-regexp "SEE ALSO\\|$B4XO"9`L\(B"
      Man-first-heading-regexp "^[ \t]*NAME$\\|^[ \t]*$BL>(B[$BA0>N(B]$\\|^[ \t]*No manual entry fo.*$"
      Man-heading-regexp "^\\([A-Z$B!<$!(B-$B$s%!(B-$B%v0!(B-$Bt$(B][A-Z$B!<$!(B-$B$s%!(B-$B%v0!(B-$Bt$(B \t]+\\)$")

$B$H$$$&@_Dj$b$"$k$HNI$$$+$b$7$l$^$;$s!#(B

-- 
$BEZ20(B $B2mL-(B  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/

--Multipart_Fri_Jun__9_10:47:08_2000-1--