2001-07-03 Simon Josefsson <jas@extundo.com>

	* flow-fill.el (fill-flowed): If `fill-region' inserts empty line,
	remove it (workaround XEmacs `fill-region' bug).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 379230c..141d331 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-03  Simon Josefsson  <jas@extundo.com>
+
+       * flow-fill.el (fill-flowed): If `fill-region' inserts empty line,
+       remove it (workaround XEmacs `fill-region' bug).
+
 2001-07-01  Simon Josefsson  <jas@extundo.com>
 
        * nnimap.el (nnimap-date-days-ago): Defeat locale.

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index 64946f9..5d738fe 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -96,7 +96,10 @@
            (let ((fill-prefix (when quote (concat quote " "))))
              (fill-region (fill-flowed-point-at-bol)
                           (fill-flowed-point-at-eol)
-                          'left 'nosqueeze))))))))
+                          'left 'nosqueeze)
+
+             (when (looking-at "^$")
+               (kill-line)))))))))
 
 (provide 'flow-fill)