From a0de86be1ee35bd7743ffc58bb8ca3d9ba7a755e Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Tue, 3 Jul 2001 12:22:45 +0000 Subject: [PATCH] 2001-07-03 Simon Josefsson From Nuutti Kotivuori * flow-fill.el (fill-flowed): Use (1+ (point-at-eol)) instead. --- lisp/ChangeLog | 5 +++++ lisp/flow-fill.el | 7 ++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 141d331d8..81be6f775 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-03 Simon Josefsson + From Nuutti Kotivuori + + * flow-fill.el (fill-flowed): Use (1+ (point-at-eol)) instead. + 2001-07-03 Simon Josefsson * flow-fill.el (fill-flowed): If `fill-region' inserts empty line, diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el index 5d738fef9..6150d519c 100644 --- 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) -- 2.34.1