From: Kenichi Handa Date: Fri, 9 Jun 2000 07:48:24 +0000 (+0000) Subject: (Man-fontify-manpage): Fix previous change. X-Git-Tag: emacs-pretest-21.0.90~3431 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1ceff3a511b77323acccb98866f709ab8e85f1f;p=emacs.git (Man-fontify-manpage): Fix previous change. --- 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)