# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1266106831 -7200
# Node ID 0811f079d15e7b6f42b1e8469f487bd06ba2ea8f
# Parent  38f0f81b2f1fdddf3be3cf9c70ea621c1fe1dc09
* man.el (Man-fontify-manpage, Man-cleanup-manpage):
Remove remaining ^H with their preceding chars.  (Bug#5566)

diff -r 38f0f81b2f1f -r 0811f079d15e lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Feb 13 11:29:25 2010 -0800
+++ b/lisp/ChangeLog	Sun Feb 14 02:20:31 2010 +0200
@@ -1,3 +1,8 @@
+2010-02-14  Juri Linkov  <juri@jurta.org>
+
+	* man.el (Man-fontify-manpage, Man-cleanup-manpage):
+	Remove remaining ^H with their preceding chars.  (Bug#5566)
+
 2010-02-13  Glenn Morris  <rgm@gnu.org>
 
 	* simple.el (transpose-subr): Give it a doc-string.
diff -r 38f0f81b2f1f -r 0811f079d15e lisp/man.el
--- a/lisp/man.el	Sat Feb 13 11:29:25 2010 -0800
+++ b/lisp/man.el	Sun Feb 14 02:20:31 2010 +0200
@@ -1087,6 +1087,11 @@
     (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t)
       (replace-match "+")
       (put-text-property (1- (point)) (point) 'face 'bold))
+    ;; When the header is longer than the manpage name, groff tries to
+    ;; condense it to a shorter line interspered with ^H.  Remove ^H with
+    ;; their preceding chars (but don't put Man-overstrike-face).  (Bug#5566)
+    (goto-char (point-min))
+    (while (re-search-forward ".\b" nil t) (backward-delete-char 2))
     (goto-char (point-min))
     ;; Try to recognize common forms of cross references.
     (Man-highlight-references)
@@ -1174,6 +1179,11 @@
 	))
   (goto-char (point-min))
   (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+"))
+  ;; When the header is longer than the manpage name, groff tries to
+  ;; condense it to a shorter line interspered with ^H.  Remove ^H with
+  ;; their preceding chars (but don't put Man-overstrike-face).  (Bug#5566)
+  (goto-char (point-min))
+  (while (re-search-forward ".\b" nil t) (backward-delete-char 2))
   (Man-softhyphen-to-minus)
   (message "%s man page cleaned up" Man-arguments))