From e1ceff3a511b77323acccb98866f709ab8e85f1f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 9 Jun 2000 07:48:24 +0000 Subject: [PATCH] (Man-fontify-manpage): Fix previous change. --- lisp/man.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/man.el b/lisp/man.el index 7993d384338..7efe6bd9a69 100644 --- 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) -- 2.39.2