diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/man.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/man.el b/lisp/man.el index c7d8c4089db..4a14f638fc3 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -1174,10 +1174,7 @@ See the variable `Man-notify-method' for the different notification behaviors." | |||
| 1174 | (unless (eq t (compare-strings "latin-" 0 nil | 1174 | (unless (eq t (compare-strings "latin-" 0 nil |
| 1175 | current-language-environment 0 6 t)) | 1175 | current-language-environment 0 6 t)) |
| 1176 | (goto-char (point-min)) | 1176 | (goto-char (point-min)) |
| 1177 | (let ((str "\255")) | 1177 | (while (search-forward "" nil t) (replace-match "-")))) |
| 1178 | (if enable-multibyte-characters | ||
| 1179 | (setq str (string-as-multibyte str))) | ||
| 1180 | (while (search-forward str nil t) (replace-match "-"))))) | ||
| 1181 | 1178 | ||
| 1182 | (defun Man-fontify-manpage () | 1179 | (defun Man-fontify-manpage () |
| 1183 | "Convert overstriking and underlining to the correct fonts. | 1180 | "Convert overstriking and underlining to the correct fonts. |