(Man-fontify-manpage): Fix previous change.

diff --git a/lisp/man.el b/lisp/man.el
index 7993d384338d1ece1a017476b7fe36e71dbf7a9b..7efe6bd9a69b0d53f18f4512e7cafd0bf5b16d87 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -684,6 +684,17 @@ Same for the ANSI bold and normal escape sequences."
                                  (delete-backward-char 4))
                              (point))
                       'face Man-overstrike-face))
+  (if (< (buffer-size) (position-bytes (point-max)))
+      ;; Multibyte characters exist.
+      (progn
+       (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\b__" nil t)
+         (backward-delete-char 4)
+         (put-text-property (1- (point)) (point) 'face Man-underline-face))))
   (goto-char (point-min))
   (while (search-forward "_\b" nil t)
     (backward-delete-char 2)