Mercurial > emacs
changeset 13635:a48a11952cc7
(Man-fontify-manpage, Man-cleanup-manpage):
Convert \255 to a dash.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Nov 1995 22:19:32 +0000 |
| parents | 3db84fa28aea |
| children | a120308bfe29 |
| files | lisp/man.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Wed Nov 22 22:45:15 1995 +0000 +++ b/lisp/man.el Fri Nov 24 22:19:32 1995 +0000 @@ -624,6 +624,9 @@ (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 @@ )) (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)