From 85960a7cdad09f13ed28d25ac30a6b8e577f54ca Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 7 Aug 1999 11:31:39 +0000 Subject: [PATCH] (Man-softhyphen-to-minus): Revert last change. --- lisp/man.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/man.el b/lisp/man.el index 4bfbeed2ad0..27860b5c0a2 100644 --- 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. - (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. -- 2.39.5