mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-18 12:00:38 -07:00
Code Issues Projects Releases Wiki Activity

(fill-region-as-paragraph): Fix bug of

Browse source 
handling the case that English letters are followed by such
characters as Japanese and Chinese.
This commit is contained in:
Kenichi Handa 1997-11-08 03:08:40 +00:00
parent c6965ddb68
commit b847b1de5b
1 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/textmodes/fill.el
View file

@ -449,10 +449,17 @@ space does not end a sentence, so don't break a line there."
(save-excursion (forward-char -1)
(and (looking-at "\\. ")
(not (looking-at "\\. ")))))))
;; Find a breakable point while ignoring the
;; following spaces.
(skip-chars-forward " \t")
;; Skip one \c| character or one word.
(if (looking-at "$\\|\\c|\\|[^ \t\n]+")
(goto-char (match-end 0)))
(if (looking-at "\\c|")
(forward-char 1)
(let ((pos (save-excursion
(skip-chars-forward "^ \n\t")
(point))))
(if (re-search-forward "\\c|" pos t)
(forward-char -1)
(goto-char pos))))
(setq first nil)))
;; Normally, move back over the single space between the words.
(if (= (preceding-char) ?\ ) (forward-char -1))
@ -487,10 +494,17 @@ space does not end a sentence, so don't break a line there."
(save-excursion (forward-char -1)
(and (looking-at "\\. ")
(not (looking-at "\\. ")))))))
;; Find a breakable point while ignoring the
;; following spaces.
(skip-chars-forward " \t")
;; Skip one \c| character or one word.
(if (looking-at "$\\|\\c|\\|[^ \t\n]+")
(goto-char (match-end 0)))
(if (looking-at "\\c|")
(forward-char 1)
(let ((pos (save-excursion
(skip-chars-forward "^ \n\t")
(point))))
(if (re-search-forward "\\c|" pos t)
(forward-char -1)
(goto-char pos))))
(setq first nil))))
;; Check again to see if we got to the end of the paragraph.
(if (save-excursion (skip-chars-forward " \t") (eobp))