🚀 go-pugleaf

In article <yosun1kwe321.fsf@jpl.org>, Katsumi Yamaoka <yamaoka@jpl.org> writes:
$BEZ20$5$s(B>  $B$3$l$O!"85!9$O!"(B
$BEZ20$5$s(B>      __^H^H$B>J(B__^H^H$BN,(B__^H^H$B7A(B
$BEZ20$5$s(B>  $B$H$$$&=PNO$G$"$C$?$b$N$,!"H>ED$5$s$,;XE&$5$l$?%3!<%I$K$h$C$F(B
$BEZ20$5$s(B>  $B@07A$5$l$F!";32,$5$s$,8@$o$l$?$h$&$J=PNO$K$J$C$F$$$k$N$@$H;W(B
$BEZ20$5$s(B>  $B$o$l$^$9!#(B

$B$"!"J,$j$^$7$?!#(B

$BEZ20$5$s(B> $B$=$l$+$i!"F|K\8l(B Man $B$KBP1~$9$k$N$G$7$?$i!"(B
$BEZ20$5$s(B>
$BEZ20$5$s(B> (setq Man-see-also-regexp "SEE ALSO\\|$B4XO"9`L\(B"
$BEZ20$5$s(B>       Man-first-heading-regexp "^[ \t]*NAME$\\|^[ \t]*$BL>(B[$BA0>N(B]$\\|^[ \t]*No manual entry fo.*$"
$BEZ20$5$s(B>      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]+\\)$")
$BEZ20$5$s(B>
$BEZ20$5$s(B> $B$H$$$&@_Dj$b$"$k$HNI$$$+$b$7$l$^$;$s!#(B

$B$3$N<j$N(B localization $B$O(B Emacs $B$,(B gettext $BBP1~$K$J$k$^$G$*BT$A2<$5$$!#(B

> $B$H$$$&$o$1$G!"(B
> (defun Man-fontify-manpage ()
> [...]
>   (goto-char (point-min))
>   (while (search-forward "__\b\b" nil t)
>     (backward-delete-char 4)
>     (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 (point) (1+ (point)) 'face Man-underline-face))
> $B$H$$$C$?46$8$N$b$N$rF~$l$l$PNI$$$h$&$G$9!#(B

$B%^%k%A%P%$%HJ8;z$,$"$k$H$-$N$_=hM}$r$9$k$h$&$9$k$?$a!"@h$N=$@5$K2C$(!"(B
$B0J2<$N=$@5$rF~$l$h$&$H;W$$$^$9!#(B

$B!]!]!!$1$s$A$c$s!w#E#T#L(B
      handa@etl.go.jp

Index: man.el
===================================================================
RCS file: /gd/gnu/cvsroot/emacs/lisp/man.el,v
retrieving revision 1.94
diff -c -w -c -r1.94 man.el
*** man.el	2000/06/09 00:42:39	1.94
--- man.el	2000/06/09 07:39:51
***************
*** 684,689 ****
--- 684,700 ----
  				  (delete-backward-char 4))
  			      (point))
  		       'face Man-overstrike-face))
+   (if (< (buffer-size) (position-bytes (point-max)))
+       ;; Multibyte characters exist.
+       (progn
+ 	(goto-char (point-min))
+ 	(while (search-forward "__\b\b" nil t)
+ 	  (backward-delete-char 4)
+ 	  (put-text-property (point) (1+ (point)) 'face Man-underline-face))
+ 	(goto-char (point-min))
+ 	(while (search-forward "\b\b__" nil t)
+ 	  (backward-delete-char 4)
+ 	  (put-text-property (1- (point)) (point) 'face Man-underline-face))))
    (goto-char (point-min))
    (while (search-forward "_\b" nil t)
      (backward-delete-char 2)