(Man-softhyphen-to-minus): Fix for multibyte case, do

nothing in Latin-N environment.

diff --git a/lisp/man.el b/lisp/man.el
index 27860b5c0a2b368dfdea4133d442afa6c57f9615..4bfbeed2ad037475c4ae97f4888063fc15dc8e5b 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -661,12 +661,12 @@ See the variable `Man-notify-method' for the different notification behaviors."
 
 (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.