🚀 go-pugleaf

>>>>> In <mpazoovmxr7.fsf@olive.kuee.kyoto-u.ac.jp> 
>>>>>	TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:

山岡> それから、
山岡>           x*   x-$ _^Hの_^H省_^H略_^H形
山岡> こういうのも整形する機能を追加してみました。

半田さん>あれ？このパターンはオリジナルの man.el の
半田さん> (while (search-forward "_\b" nil t)
半田さん> (backward-delete-char 2)
半田さん> (put-text-property (point) (1+ (point)) 'face Man-underline-face))
半田さん>で吸収されませんか？

土屋さん> これは、元々は、
土屋さん>     __^H^H省__^H^H略__^H^H形
土屋さん> という出力であったものが、半田さんが指摘されたコードによって
土屋さん> 整形されて、山岡さんが言われたような出力になっているのだと思
土屋さん> われます。

土屋さんのおっしゃる通りです。
;; 判明したのと同時に土屋さんの記事が届きました。:-)

というわけで、

(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))

といった感じのものを入れれば良いようです。
半田さん、よろしくお願いします。
-- 
Katsumi Yamaoka <yamaoka@jpl.org>