diff options
| author | Dave Love | 1999-08-04 19:00:57 +0000 |
|---|---|---|
| committer | Dave Love | 1999-08-04 19:00:57 +0000 |
| commit | 2311d6d05dabc47384fcd6aeaff03daf1e014450 (patch) | |
| tree | c068ffb13497e461aa184cc4e72a02be5458fa24 | |
| parent | d0e41cba4007c9e904735012e24e9c0afc1d4c6b (diff) | |
| download | emacs-2311d6d05dabc47384fcd6aeaff03daf1e014450.tar.gz emacs-2311d6d05dabc47384fcd6aeaff03daf1e014450.zip | |
(Man-softhyphen-to-minus): Fix for multibyte case, do
nothing in Latin-N environment.
| -rw-r--r-- | lisp/man.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/man.el b/lisp/man.el index 27860b5c0a2..4bfbeed2ad0 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -661,12 +661,12 @@ See the variable `Man-notify-method' for the different notification behaviors." | |||
| 661 | 661 | ||
| 662 | (defun Man-softhyphen-to-minus () | 662 | (defun Man-softhyphen-to-minus () |
| 663 | ;; \255 is some kind of dash in Latin-1. | 663 | ;; \255 is some kind of dash in Latin-1. |
| 664 | (goto-char (point-min)) | 664 | (unless (eq t (compare-strings "latin-" 0 nil |
| 665 | (if enable-multibyte-characters | 665 | current-language-environment 0 6 t)) |
| 666 | (while (search-forward "\255" nil t) | 666 | (goto-char (point-min)) |
| 667 | (if (= (preceding-char) ?\255) | 667 | (while (and (skip-chars-forward "^\255") (not (eobp))) |
| 668 | (replace-match "-"))) | 668 | (delete-char 1) |
| 669 | (while (search-forward "\255" nil t) (replace-match "-")))) | 669 | (insert ?-)))) |
| 670 | 670 | ||
| 671 | (defun Man-fontify-manpage () | 671 | (defun Man-fontify-manpage () |
| 672 | "Convert overstriking and underlining to the correct fonts. | 672 | "Convert overstriking and underlining to the correct fonts. |