From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 9 May 2024 22:22:41 +0000 (+0100)
Subject: el/dot-emacs.el (mdw-fontify-perl): Use the standard autofill function.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/de0007cf22dc7a4767c1057db00c8091b8b1012f?ds=sidebyside

el/dot-emacs.el (mdw-fontify-perl): Use the standard autofill function.

Cperl mode has its own crazy autofill which messes up earlier lines and
doesn't get the dynamic fill prefix right.  So beat it up and use the
standard function.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 542a6cb..a323e03 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -3447,6 +3447,7 @@ (defun mdw-fontify-perl ()
   (modify-syntax-entry ?$ "\\" font-lock-syntax-table)
   (modify-syntax-entry ?: "." font-lock-syntax-table)
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
+  (setq auto-fill-function #'do-auto-fill)
 
   ;; Now define fontification things.
   (make-local-variable 'font-lock-keywords)