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 542a6cbc5c1f7dc6964f121997d79da9c3f34dee..a323e031d3b4cfb1ed5a527224e1cf0a9145879c 100644 (file)
--- 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]*\\)")
   (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)
 
   ;; Now define fontification things.
   (make-local-variable 'font-lock-keywords)