diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-24 22:19:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-24 22:19:32 +0000 |
| commit | 86884919ffde07ed3b6816d7030c66e25de11b6b (patch) | |
| tree | ad3107e71a6a14cce1d81c05fa479d3437ac08b7 /lisp/man.el | |
| parent | 23a5869252a584b89cd5ec68d66a287d3df58f69 (diff) | |
| download | emacs-86884919ffde07ed3b6816d7030c66e25de11b6b.tar.gz | |
(Man-fontify-manpage, Man-cleanup-manpage):
Convert \255 to a dash.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/man.el b/lisp/man.el index 174a72455ec..4a3afd45d73 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -624,6 +624,9 @@ Same for the ANSI bold and normal escape sequences." (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+") (put-text-property (1- (point)) (point) 'face 'bold)) + ;; \255 is some kind of dash in Latin-1. + (goto-char (point-min)) + (while (search-forward "\255" nil t) (replace-match "-")) (message "%s man page made up" Man-arguments)) (defun Man-cleanup-manpage () @@ -647,6 +650,9 @@ Same for the ANSI bold and normal escape sequences." )) (goto-char (point-min)) (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+")) + ;; \255 is some kind of dash in Latin-1. + (goto-char (point-min)) + (while (search-forward "\255" nil t) (replace-match "-")) (message "%s man page cleaned up" Man-arguments)) (defun Man-bgproc-sentinel (process msg) |