Commit 91e3333f authored by Juri Linkov's avatar Juri Linkov

* man.el (Man-fontify-manpage, Man-cleanup-manpage):

Remove remaining ^H with their preceding chars.  (Bug#5566)
parent 36020642
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.
......
......@@ -1087,6 +1087,11 @@ 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))
;; 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 @@ script would have done them."
))
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment