From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 24 Nov 1995 22:19:32 +0000 (+0000)
Subject: (Man-fontify-manpage, Man-cleanup-manpage):
X-Git-Tag: emacs-19.34~2225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86884919ffde07ed3b6816d7030c66e25de11b6b;p=emacs.git

(Man-fontify-manpage, Man-cleanup-manpage):
Convert \255 to a dash.
---

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)