Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Man-softhyphen-to-minus): Revert previous change. Avoid unibyte to

Browse source 
multibyte conversion of search-forward (from Handa), but avoid the
replacement if the language is Latin-N.
This commit is contained in:
Dave Love 1999-08-07 11:45:06 +00:00
parent 85960a7cda
commit 9f79084ca2
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/man.el
View file

@ -660,13 +660,15 @@ See the variable `Man-notify-method' for the different notification behaviors."
)))
(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.