diff options
| author | Stefan Monnier | 2017-08-30 15:00:56 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-08-30 15:00:56 -0400 |
| commit | dc313922d826b9f53cf1426ff36c8cc3f71d64c6 (patch) | |
| tree | e89c693a8676b2356b3af844635b966be86feac9 | |
| parent | 36df2f1b23b26182978915beccd20a4adb23d51b (diff) | |
| download | emacs-dc313922d826b9f53cf1426ff36c8cc3f71d64c6.tar.gz emacs-dc313922d826b9f53cf1426ff36c8cc3f71d64c6.zip | |
* lisp/man.el (Man-softhyphen-to-minus): Avoid string-as-multibyte.
| -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. |