Mercurial > emacs
changeset 53723:31efc669b404
(fill-delete-newlines): Don't add a space if a
setence ends with one of a character in
sentence-end-without-space.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 27 Jan 2004 07:34:18 +0000 |
| parents | 4f64eb1ea148 |
| children | 8fca6fb9c7c9 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Tue Jan 27 07:32:41 2004 +0000 +++ b/lisp/textmodes/fill.el Tue Jan 27 07:34:18 2004 +0000 @@ -423,9 +423,13 @@ ((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)