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

	From Nuutti Kotivuori <nuutti.kotivuori@smarttrust.com>

	* flow-fill.el (fill-flowed): Use (1+ (point-at-eol)) instead.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 141d331..81be6f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-03  Simon Josefsson  <jas@extundo.com>
+       From Nuutti Kotivuori <nuutti.kotivuori@smarttrust.com>
+
+       * flow-fill.el (fill-flowed): Use (1+ (point-at-eol)) instead.
+
 2001-07-03  Simon Josefsson  <jas@extundo.com>
 
        * flow-fill.el (fill-flowed): If `fill-region' inserts empty line,

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index 5d738fe..6150d51 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -95,11 +95,8 @@
          (unless sig
            (let ((fill-prefix (when quote (concat quote " "))))
              (fill-region (fill-flowed-point-at-bol)
-                          (fill-flowed-point-at-eol)
-                          'left 'nosqueeze)
-
-             (when (looking-at "^$")
-               (kill-line)))))))))
+                          (1+ (fill-flowed-point-at-eol))
+                          'left 'nosqueeze))))))))
 
 (provide 'flow-fill)