Fix auto-filling regression

Bug#28003
* lisp/newcomment.el (comment-indent-new-line): Check
comment-auto-fill-only-comments.  Reverts earlier change.
* lisp/simple.el (internal-auto-fill): Call auto-fill-function, not
do-auto-fill.

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index e3ee4dfab114891e722af7dcc4f37199d13c4962..8772b52376da761068f6af08eb2e698212591a08 100644 (file)
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -1382,9 +1382,10 @@ unless optional argument SOFT is non-nil."
   (interactive)
   (comment-normalize-vars t)
   (let (compos comin)
-    ;; If we are not inside a comment don't do anything (unless no
-    ;; comment syntax is defined).
+    ;; If we are not inside a comment and we only auto-fill comments,
+    ;; don't do anything (unless no comment syntax is defined).
     (unless (and comment-start
+                comment-auto-fill-only-comments
                 (not (called-interactively-p 'interactive))
                 (not (save-excursion
                        (prog1 (setq compos (comment-beginning))

diff --git a/lisp/simple.el b/lisp/simple.el
index 9838f1644f83fedb3390da3095470d89979651ed..933ffc55a6bf847efaad802a88db7c3a26f90c72 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7243,7 +7243,7 @@ unless optional argument SOFT is non-nil."
   (when (or (not comment-start)
             (not comment-auto-fill-only-comments)
             (nth 4 (syntax-ppss)))
-    (do-auto-fill)))
+    (funcall auto-fill-function)))
 
 (defvar normal-auto-fill-function 'do-auto-fill
   "The function to use for `auto-fill-function' if Auto Fill mode is turned on.