# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 934025499 0
# Node ID d0036b95d7f7d622ab772751eba42b331f724d4a
# Parent  8ab4da818dc0729cbbd98c29b8743d054e6b8abc
(Man-softhyphen-to-minus): Revert last change.

diff -r 8ab4da818dc0 -r d0036b95d7f7 lisp/man.el
--- a/lisp/man.el	Sat Aug 07 11:28:27 1999 +0000
+++ b/lisp/man.el	Sat Aug 07 11:31:39 1999 +0000
@@ -661,12 +661,12 @@
 
 (defun Man-softhyphen-to-minus ()
   ;; \255 is some kind of dash in Latin-1.
-  (unless (eq t (compare-strings "latin-" 0 nil
-				 current-language-environment 0 6 t))
-    (goto-char (point-min))
-    (while (and (skip-chars-forward "^\255") (not (eobp)))
-      (delete-char 1)
-      (insert ?-))))
+  (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 "-"))))
 
 (defun Man-fontify-manpage ()
   "Convert overstriking and underlining to the correct fonts.