mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(fill-delete-newlines): Don't add a space if a

Browse source 
setence ends with one of a character in
sentence-end-without-space.
This commit is contained in:
Kenichi Handa 2004-01-27 07:34:35 +00:00
parent 21a3e65787
commit f43a0b9824
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/fill.el
View file

@ -423,9 +423,13 @@ Point is moved to just past the fill prefix on the first line."
((string-match "\\[[^][]*\\(\\.\\)[^][]*\\]" sentence-end)
(concat (replace-match ".:" nil nil sentence-end 1) "$"))
;; Can't find the right spot to insert the colon.
(t "[.?!:][])}\"']*$"))))
(t "[.?!:][])}\"']*$")))
(sentence-end-without-space-list
(string-to-list sentence-end-without-space)))
(while (re-search-forward eol-double-space-re to t)
(or (>= (point) to) (memq (char-before) '(?\t ?\ ))
(memq (char-after (match-beginning 0))
sentence-end-without-space-list)
(insert-and-inherit ?\ ))))
(goto-char from)