# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1075188858 0
# Node ID 31efc669b4040335cc1f88540235e650a60178c6
# Parent  4f64eb1ea14821598baadd3b20147f0883689123
(fill-delete-newlines): Don't add a space if a
setence ends with one of a character in
sentence-end-without-space.

diff -r 4f64eb1ea148 -r 31efc669b404 lisp/textmodes/fill.el
--- 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)