Mercurial > emacs

changeset 25201:d0036b95d7f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-softhyphen-to-minus): Revert last change.
author Dave Love <fx@gnu.org>
date Sat, 07 Aug 1999 11:31:39 +0000
parents 8ab4da818dc0
children abd64c56891f
files lisp/man.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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.