# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 817251572 0
# Node ID a48a11952cc7fe5118526aff7c174092a26cf910
# Parent  3db84fa28aead5b6db8c5a640dda0d8670c0a1bf
(Man-fontify-manpage, Man-cleanup-manpage):
Convert \255 to a dash.

diff -r 3db84fa28aea -r a48a11952cc7 lisp/man.el
--- 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)