🚀 go-pugleaf

In article <8hofae$bdi$1@news01ch.so-net.ne.jp>, Shoichi Fukusaka <fukusaka@xa2.so-net.ne.jp> writes:
> Koyama Mituru <mkoya@sannet.ne.jp> writes:
>>  $B>.;3$G$9!#(B
>>  $B!!(BEmacs 20.6 / Mule 4.0$B$r;H$C$F$$$^$9$,!"F|K\8l$N(Bman page$B$r(Bman$B%3%^(B
>>  $B%s%I$GI=<($5$;$k$H!"=E$MBG$NF|K\8l$,(Bbold$B$K$J$i$:$K!"(B
>>  $BL>(B^H^H$BL>A0(B^H^H$BA0(B
>>  $B$HI=<($5$l$F$7$^$$$^$9!#$3$l$r2sHr$9$k@_Dj$O$"$k$G$7$g$&$+!#(B

> $BKM$O!"(BEmacs 20.6 $B$G0J2<$N$h$&$K$7$F$$$^$9!#(B

> (defun Man-cooked-2-backspace-code ()
>   (goto-char (point-min))
>   (while (re-search-forward "\\(.\\)\\(\b\b\\1\\)+" nil t)
>     (replace-match "\\1")
>     (if Man-fontify-manpage-flag
> 	(put-text-property (1- (point)) (point) 'face Man-overstrike-face)))
>   (goto-char (point-min)))

$B8f;XE&$"$j$,$H$&$4$6$$$^$9!#(B Emacs 21 $B!J$^$@%W%j%F%9%H$b;O$^$C$F$$$^$;(B
$B$s$,!K$K$O0J2<$N%Q%C%A$rEv$F$F$*$-$^$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.93
retrieving revision 1.94
diff -c -w -c -r1.93 -r1.94
*** man.el	2000/03/12 14:49:20	1.93
--- man.el	2000/06/09 00:42:39	1.94
***************
*** 693,699 ****
      (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))
--- 693,699 ----
      (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))