Mercurial > emacs
changeset 29519:e1423c7d516e
(Man-fontify-manpage): Pay attention to overstrike
pattern for CJK characters (X^H^HX).
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 09 Jun 2000 00:42:39 +0000 |
| parents | 32286debe3a4 |
| children | db62f8af0015 |
| files | lisp/man.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Fri Jun 09 00:41:32 2000 +0000 +++ b/lisp/man.el Fri Jun 09 00:42:39 2000 +0000 @@ -693,7 +693,7 @@ (backward-delete-char 2) (put-text-property (1- (point)) (point) 'face Man-underline-face)) (goto-char (point-min)) - (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t) + (while (re-search-forward "\\(.\\)\\(\b+\\1\\)+" nil t) (replace-match "\\1") (put-text-property (1- (point)) (point) 'face Man-overstrike-face)) (goto-char (point-min))