# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 960536904 0
# Node ID 1b0629c989573598432258f83221dc03e13e1aed
# Parent  53382e1c625137db5f6f5cfb803a61319dd053da
(Man-fontify-manpage): Fix previous change.

diff -r 53382e1c6251 -r 1b0629c98957 lisp/man.el
--- a/lisp/man.el	Fri Jun 09 07:47:20 2000 +0000
+++ b/lisp/man.el	Fri Jun 09 07:48:24 2000 +0000
@@ -693,7 +693,7 @@
 	  (put-text-property (point) (1+ (point)) 'face Man-underline-face))
 	(goto-char (point-min))
 	(while (search-forward "\b\b__" nil t)
-	  (backward-delete-char 2)
+	  (backward-delete-char 4)
 	  (put-text-property (1- (point)) (point) 'face Man-underline-face))))
   (goto-char (point-min))
   (while (search-forward "_\b" nil t)