# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 933793257 0
# Node ID cf6d2213e0a75e242d6f9fc2761f865e7f655f8f
# Parent  5a57e11d78c998e386e63f07476a011cc6db2ef2
(Man-softhyphen-to-minus): Fix for multibyte case, do
nothing in Latin-N environment.

diff -r 5a57e11d78c9 -r cf6d2213e0a7 lisp/man.el
--- a/lisp/man.el	Wed Aug 04 18:55:22 1999 +0000
+++ b/lisp/man.el	Wed Aug 04 19:00:57 1999 +0000
@@ -661,12 +661,12 @@
 
 (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 "-"))))
+  (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 ?-))))
 
 (defun Man-fontify-manpage ()
   "Convert overstriking and underlining to the correct fonts.