+(defun Man-softhyphen-to-minus ()
+ ;; \255 is some kind of dash in Latin-1.
+ (goto-char (point-min))
+ (if enable-multibyte-characters
+ (while (search-forward "\255" nil t)
+ (if (= (preceding-char) ?\255)
+ (replace-match "-")))
+ (while (search-forward "\255" nil t) (replace-match "-"))))
+