From f2fd48cdf53e08f9931117598a5869ad97c32879 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Tue, 3 Jul 2001 11:26:23 +0000 Subject: [PATCH] 2001-07-03 Simon Josefsson * flow-fill.el (fill-flowed): If `fill-region' inserts empty line, remove it (workaround XEmacs `fill-region' bug). --- lisp/ChangeLog | 5 +++++ lisp/flow-fill.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 379230c89..141d331d8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-03 Simon Josefsson + + * flow-fill.el (fill-flowed): If `fill-region' inserts empty line, + remove it (workaround XEmacs `fill-region' bug). + 2001-07-01 Simon Josefsson * nnimap.el (nnimap-date-days-ago): Defeat locale. diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el index 64946f9f0..5d738fef9 100644 --- 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) -- 2.25.1