# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870761244 0
# Node ID 6fc804ec9434d74f99757d081d0012a5cb90077a
# Parent  4bfebbf0f6a8113deee3331034887ac02c53eda9
(comment-line-break-function): New variable.
(do-auto-fill): Use that variable.

diff -r 4bfebbf0f6a8 -r 6fc804ec9434 lisp/simple.el
--- a/lisp/simple.el	Tue Aug 05 05:49:10 1997 +0000
+++ b/lisp/simple.el	Tue Aug 05 06:07:24 1997 +0000
@@ -2606,6 +2606,15 @@
 		 regexp)
   :group 'fill)
 
+(defvar comment-line-break-function 'indent-new-comment-line
+  "*Mode-specific function which line breaks and continues a comment.
+
+This function is only called during auto-filling of a comment section.
+The function should take a single optional argument, which is a flag
+indicating whether it should use soft newlines.
+
+Setting this variable automatically makes it local to the current buffer.")
+
 ;; This function is the auto-fill-function of a buffer
 ;; when Auto-Fill mode is enabled.
 ;; It returns t if it really did any work.
@@ -2705,10 +2714,10 @@
 		(if (save-excursion
 		      (skip-chars-backward " \t")
 		      (= (point) fill-point))
-		    (indent-new-comment-line t)
+		    (funcall comment-line-break-function t)
 		  (save-excursion
 		    (goto-char fill-point)
-		    (indent-new-comment-line t)))
+		    (funcall comment-line-break-function t)))
 		;; Now do justification, if required
 		(if (not (eq justify 'left))
 		    (save-excursion