From: Dave Love <fx@gnu.org>
Date: Sat, 7 Aug 1999 11:45:06 +0000 (+0000)
Subject: (Man-softhyphen-to-minus): Revert previous change.  Avoid unibyte to
X-Git-Tag: emacs-pretest-21.0.90~7239
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f79084ca21a822b0c43aba7b4b478587ec0806c;p=emacs.git

(Man-softhyphen-to-minus): Revert previous change.  Avoid unibyte to
multibyte conversion of search-forward (from Handa), but avoid the
replacement if the language is Latin-N.
---

diff --git a/lisp/man.el b/lisp/man.el
index 27860b5c0a2..4befb416149 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -660,13 +660,15 @@ 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 "-"))))
+  ;; \255 is some kind of dash in Latin-N.  Versions of Debian man, at
+  ;; least, emit it even when not in a Latin-N locale.
+  (unless (eq t (compare-strings "latin-" 0 nil
+				 current-language-environment 0 6 t))
+    (goto-char (point-min))
+    (let ((str "\255"))
+      (if enable-multibyte-characters
+	  (setq str (string-as-multibyte str)))
+      (while (search-forward str nil t) (replace-match "-")))))
 
 (defun Man-fontify-manpage ()
   "Convert overstriking and underlining to the correct fonts.