From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 27 Jan 2024 08:52:47 +0000 (+0200)
Subject: Improve 'refill-mode' in Org buffers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96ab26f2cad8127bfbdd81c6e2940c7b32981e0d;p=emacs.git

Improve 'refill-mode' in Org buffers

* lisp/textmodes/refill.el (refill-fill-paragraph-at): Use
'fill-forward-paragraph' instead of 'forward/backward-paragraph',
so that modes could customize the behavior.  (Bug#68418)

(cherry picked from commit 8163e0b20c97a8394225a7165a8ab361af09ec29)
---

diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el
index bb6b6ebda0f..244c96b60df 100644
--- a/lisp/textmodes/refill.el
+++ b/lisp/textmodes/refill.el
@@ -106,10 +106,10 @@ This is used to optimize refilling.")
     ;; FIXME: forward-paragraph seems to disregard `use-hard-newlines',
     ;; leading to excessive refilling and wrong choice of fill-prefix.
     ;; might be a bug in my paragraphs.el.
-    (forward-paragraph)
+    (fill-forward-paragraph)
     (skip-syntax-backward "-")
     (let ((end (point))
-	  (beg (progn (backward-paragraph) (point)))
+	  (beg (progn (fill-forward-paragraph -1) (point)))
 	  (obeg (overlay-start refill-ignorable-overlay))
 	  (oend (overlay-end refill-ignorable-overlay)))
       (unless (> beg pos)      ;Don't fill if point is outside the paragraph.