Mercurial > emacs
changeset 25202:abd64c56891f
(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.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 07 Aug 1999 11:45:06 +0000 |
| parents | d0036b95d7f7 |
| children | 5462387b221c |
| files | lisp/man.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Sat Aug 07 11:31:39 1999 +0000 +++ b/lisp/man.el Sat Aug 07 11:45:06 1999 +0000 @@ -660,13 +660,15 @@ ))) (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.