Mercurial > emacs
comparison lisp/man.el @ 29525:1b0629c98957
(Man-fontify-manpage): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 09 Jun 2000 07:48:24 +0000 |
| parents | 53382e1c6251 |
| children | d3e3a9663705 |
comparison
equal
deleted
inserted
replaced
| 29524:53382e1c6251 | 29525:1b0629c98957 |
|---|---|
| 691 (while (search-forward "__\b\b" nil t) | 691 (while (search-forward "__\b\b" nil t) |
| 692 (backward-delete-char 4) | 692 (backward-delete-char 4) |
| 693 (put-text-property (point) (1+ (point)) 'face Man-underline-face)) | 693 (put-text-property (point) (1+ (point)) 'face Man-underline-face)) |
| 694 (goto-char (point-min)) | 694 (goto-char (point-min)) |
| 695 (while (search-forward "\b\b__" nil t) | 695 (while (search-forward "\b\b__" nil t) |
| 696 (backward-delete-char 2) | 696 (backward-delete-char 4) |
| 697 (put-text-property (1- (point)) (point) 'face Man-underline-face)))) | 697 (put-text-property (1- (point)) (point) 'face Man-underline-face)))) |
| 698 (goto-char (point-min)) | 698 (goto-char (point-min)) |
| 699 (while (search-forward "_\b" nil t) | 699 (while (search-forward "_\b" nil t) |
| 700 (backward-delete-char 2) | 700 (backward-delete-char 2) |
| 701 (put-text-property (point) (1+ (point)) 'face Man-underline-face)) | 701 (put-text-property (point) (1+ (point)) 'face Man-underline-face)) |