diff options
| author | Kenichi Handa | 2000-06-09 07:48:24 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-06-09 07:48:24 +0000 |
| commit | e1ceff3a511b77323acccb98866f709ab8e85f1f (patch) | |
| tree | b9bfabc71f47f76742e7c725f24a6b4194aa6774 | |
| parent | 8cf74617ad22d01bee385416b060a8e3de1b2ed0 (diff) | |
| download | emacs-e1ceff3a511b77323acccb98866f709ab8e85f1f.tar.gz emacs-e1ceff3a511b77323acccb98866f709ab8e85f1f.zip | |
(Man-fontify-manpage): Fix previous change.
| -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." | |||
| 684 | (delete-backward-char 4)) | 684 | (delete-backward-char 4)) |
| 685 | (point)) | 685 | (point)) |
| 686 | 'face Man-overstrike-face)) | 686 | 'face Man-overstrike-face)) |
| 687 | (if (< (buffer-size) (position-bytes (point-max))) | ||
| 688 | ;; Multibyte characters exist. | ||
| 689 | (progn | ||
| 690 | (goto-char (point-min)) | ||
| 691 | (while (search-forward "__\b\b" nil t) | ||
| 692 | (backward-delete-char 4) | ||
| 693 | (put-text-property (point) (1+ (point)) 'face Man-underline-face)) | ||
| 694 | (goto-char (point-min)) | ||
| 695 | (while (search-forward "\b\b__" nil t) | ||
| 696 | (backward-delete-char 4) | ||
| 697 | (put-text-property (1- (point)) (point) 'face Man-underline-face)))) | ||
| 687 | (goto-char (point-min)) | 698 | (goto-char (point-min)) |
| 688 | (while (search-forward "_\b" nil t) | 699 | (while (search-forward "_\b" nil t) |
| 689 | (backward-delete-char 2) | 700 | (backward-delete-char 2) |