Mercurial > emacs
changeset 107144:0811f079d15e
* man.el (Man-fontify-manpage, Man-cleanup-manpage):
Remove remaining ^H with their preceding chars. (Bug#5566)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 14 Feb 2010 02:20:31 +0200 |
| parents | 38f0f81b2f1f |
| children | 541b767fb366 40f3f51b5329 |
| files | lisp/ChangeLog lisp/man.el |
| diffstat | 2 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Feb 13 11:29:25 2010 -0800 +++ b/lisp/ChangeLog Sun Feb 14 02:20:31 2010 +0200 @@ -1,3 +1,8 @@ +2010-02-14 Juri Linkov <juri@jurta.org> + + * man.el (Man-fontify-manpage, Man-cleanup-manpage): + Remove remaining ^H with their preceding chars. (Bug#5566) + 2010-02-13 Glenn Morris <rgm@gnu.org> * simple.el (transpose-subr): Give it a doc-string.
--- a/lisp/man.el Sat Feb 13 11:29:25 2010 -0800 +++ b/lisp/man.el Sun Feb 14 02:20:31 2010 +0200 @@ -1087,6 +1087,11 @@ (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+") (put-text-property (1- (point)) (point) 'face 'bold)) + ;; When the header is longer than the manpage name, groff tries to + ;; condense it to a shorter line interspered with ^H. Remove ^H with + ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) + (goto-char (point-min)) + (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) (goto-char (point-min)) ;; Try to recognize common forms of cross references. (Man-highlight-references) @@ -1174,6 +1179,11 @@ )) (goto-char (point-min)) (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+")) + ;; When the header is longer than the manpage name, groff tries to + ;; condense it to a shorter line interspered with ^H. Remove ^H with + ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) + (goto-char (point-min)) + (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) (Man-softhyphen-to-minus) (message "%s man page cleaned up" Man-arguments))