From 4a1450bcc397ab612cc839d0fb69fce3e6aef52a Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell+paredit@mumble.net>
Date: Sat, 9 Jul 2022 08:40:59 +0000
Subject: Respect fill-paragraph-function.  Fall back to lisp-fill-paragraph.

---
 paredit.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'paredit.el')

diff --git a/paredit.el b/paredit.el
index fd9f038..8b78441 100644
--- a/paredit.el
+++ b/paredit.el
@@ -1005,7 +1005,9 @@ If the point is in a string or a comment, fill the paragraph instead,
   (interactive "P")
   (if (or (paredit-in-string-p)
           (paredit-in-comment-p))
-      (lisp-fill-paragraph argument)
+      (if (memq fill-paragraph-function '(t nil))
+          (lisp-fill-paragraph argument)
+        (funcall fill-paragraph-function argument))
     (paredit-preserving-column
       (save-excursion
         (end-of-defun)
-- 
cgit v1.2.1