* lisp/man.el (Man-softhyphen-to-minus): Avoid string-as-multibyte.

This commit is contained in:
Stefan Monnier 2017-08-30 15:00:56 -04:00
parent 36df2f1b23
commit dc313922d8

View file

@ -1174,10 +1174,7 @@ See the variable `Man-notify-method' for the different notification behaviors."
(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 "-")))))
(while (search-forward "­" nil t) (replace-match "-"))))
(defun Man-fontify-manpage ()
"Convert overstriking and underlining to the correct fonts.