Mercurial > emacs
changeset 29524:53382e1c6251
(Man-fontify-manpage): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 09 Jun 2000 07:47:20 +0000 |
| parents | 33994562b445 |
| children | 1b0629c98957 |
| files | lisp/man.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Fri Jun 09 02:22:56 2000 +0000 +++ b/lisp/man.el Fri Jun 09 07:47:20 2000 +0000 @@ -684,6 +684,17 @@ (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 2) + (put-text-property (1- (point)) (point) 'face Man-underline-face)))) (goto-char (point-min)) (while (search-forward "_\b" nil t) (backward-delete-char 2)