diff options
| author | Kenichi Handa | 2000-06-09 00:42:39 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-06-09 00:42:39 +0000 |
| commit | cb581be7b155b38d9dd7736bfbf052f3ee631839 (patch) | |
| tree | 9f708cd4a572a9683d178458e3205dccc4aaa71f /lisp | |
| parent | 41ea379491006783601ae79b19f6990698fa2e16 (diff) | |
| download | emacs-cb581be7b155b38d9dd7736bfbf052f3ee631839.tar.gz emacs-cb581be7b155b38d9dd7736bfbf052f3ee631839.zip | |
(Man-fontify-manpage): Pay attention to overstrike
pattern for CJK characters (X^H^HX).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/man.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index 45fd98ab91a..7993d384338 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -693,7 +693,7 @@ Same for the ANSI bold and normal escape sequences." | |||
| 693 | (backward-delete-char 2) | 693 | (backward-delete-char 2) |
| 694 | (put-text-property (1- (point)) (point) 'face Man-underline-face)) | 694 | (put-text-property (1- (point)) (point) 'face Man-underline-face)) |
| 695 | (goto-char (point-min)) | 695 | (goto-char (point-min)) |
| 696 | (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t) | 696 | (while (re-search-forward "\\(.\\)\\(\b+\\1\\)+" nil t) |
| 697 | (replace-match "\\1") | 697 | (replace-match "\\1") |
| 698 | (put-text-property (1- (point)) (point) 'face Man-overstrike-face)) | 698 | (put-text-property (1- (point)) (point) 'face Man-overstrike-face)) |
| 699 | (goto-char (point-min)) | 699 | (goto-char (point-min)) |