🚀 go-pugleaf

>>>>> In <8hofae$bdi$1@news01ch.so-net.ne.jp> 
>>>>>	Shoichi Fukusaka <fukusaka@xa2.so-net.ne.jp> wrote:

小山さん>> 名^H^H名前^H^H前

もいもい> 僕は、Emacs 20.6 で以下のようにしています。

[...]

もいもい> (while (re-search-forward "\\(.\\)\\(\b\b\\1\\)+" nil t)

正規表現のこんな使い方ができるんですね。参考になります。
ところで "+" は必要なんでしょうか?
それから、
          x*   x-$ _^Hの_^H省_^H略_^H形

こういうのも整形する機能を追加してみました。

(defun Man-cooked-backspaces ()
  (goto-char (point-min))
  (while (re-search-forward "\\(.\\)\\(\b\b\\1\\)\\|_\b\\(.\\)" nil t)
    (cond ((match-beginning 3)
	   (replace-match "\\3")
	   (if Man-fontify-manpage-flag
	       (put-text-property (1- (point)) (point)
				  'face Man-underline-face)))
	  (t
	   (replace-match "\\1")
	   (if Man-fontify-manpage-flag
	       (put-text-property (1- (point)) (point)
				  'face Man-overstrike-face)))))
  (goto-char (point-min)))

(add-hook 'Man-cooked-hook 'Man-cooked-backspaces)
-- 
山岡 克美 <yamaoka@jpl.org>