(Man-fontify-manpage): Pay attention to overstrike

pattern for CJK characters (X^H^HX).

diff --git a/lisp/man.el b/lisp/man.el
index 45fd98ab91a58b6b968e9c672f59806ddcffbd16..7993d384338d1ece1a017476b7fe36e71dbf7a9b 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -693,7 +693,7 @@ Same for the ANSI bold and normal escape sequences."
     (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)
+  (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))