diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-06-09 07:48:24 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-06-09 07:48:24 +0000 |
| commit | e1ceff3a511b77323acccb98866f709ab8e85f1f (patch) | |
| tree | b9bfabc71f47f76742e7c725f24a6b4194aa6774 /lisp/man.el | |
| parent | 8cf74617ad22d01bee385416b060a8e3de1b2ed0 (diff) | |
| download | emacs-e1ceff3a511b77323acccb98866f709ab8e85f1f.tar.gz | |
(Man-fontify-manpage): Fix previous change.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 11 |
1 files changed, 11 insertions, 0 deletions
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) |