From: Ikumi Keita <ikumi@ikumi.que.jp>
Date: Mon, 29 Nov 2021 14:40:19 +0000 (+0100)
Subject: Make fill-region-as-paragraph clear the markers it creates
X-Git-Tag: emacs-29.0.90~3639^2~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=247ed6ccbcf0d2b0887181a90632d4e461a2f519;p=emacs.git

Make fill-region-as-paragraph clear the markers it creates

* lisp/textmodes/fill.el (fill-region-as-paragraph): Clear
temporary markers (bug#52175).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 73d76a8ac67..4e161099cd6 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -705,7 +705,10 @@ space does not end a sentence, so don't break a line there."
     (goto-char from-plus-indent))
 
   (if (not (> to (point)))
-      nil ;; There is no paragraph, only whitespace: exit now.
+      ;; There is no paragraph, only whitespace: exit now.
+      (progn
+        (set-marker to nil)
+        nil)
 
     (or justify (setq justify (current-justification)))
 
@@ -791,6 +794,7 @@ space does not end a sentence, so don't break a line there."
       ;; Leave point after final newline.
       (goto-char to)
       (unless (eobp) (forward-char 1))
+      (set-marker to nil)
       ;; Return the fill-prefix we used
       fill-prefix)))