From b3ac9fa99a571b0d40bf2a9cd0e4efe56fbe9825 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 Aug 1997 06:07:24 +0000 Subject: [PATCH] (comment-line-break-function): New variable. (do-auto-fill): Use that variable. --- lisp/simple.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 4c55b4e9df0..f0fba7da342 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2606,6 +2606,15 @@ Setting this variable automatically makes it local to the current buffer." 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 @@ Setting this variable automatically makes it local to the current buffer." (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 -- 2.39.2