From: Richard M. Stallman Date: Mon, 2 Dec 2002 16:19:52 +0000 (+0000) Subject: (fill-indent-to-left-margin): New function. X-Git-Tag: ttn-vms-21-2-B4~12203 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f601aaf8f8a8d8a1a6899e526a5b4814c4e70335;p=emacs.git (fill-indent-to-left-margin): New function. (fill-newline, fill-region-as-paragraph): Use that. --- diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 727e8e1d137..f5712cc0bb1 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -540,13 +540,19 @@ The break position will be always after LINEBEG and generally before point." '(invisible t))) (if (or fill-prefix (not fill-indent-according-to-mode)) - (indent-to-left-margin) + (fill-indent-to-left-margin) (indent-according-to-mode)) ;; Insert the fill prefix after indentation. ;; Set prefixcol so whitespace in the prefix won't get lost. (and fill-prefix (not (equal fill-prefix "")) (insert-and-inherit fill-prefix))) +(defun fill-indent-to-left-margin () + "Indent current line to the column given by `current-left-margin'." + (let ((beg (point))) + (indent-line-to (current-left-margin)) + (put-text-property beg (point) 'face 'default))) + (defun fill-region-as-paragraph (from to &optional justify nosqueeze squeeze-after) "Fill the region as one paragraph. @@ -631,7 +637,7 @@ space does not end a sentence, so don't break a line there." (while (< (point) to) (if (and (not (eolp)) (< (current-indentation) (current-left-margin))) - (indent-to-left-margin)) + (fill-indent-to-left-margin)) (forward-line 1))) (if use-hard-newlines @@ -639,7 +645,7 @@ space does not end a sentence, so don't break a line there." ;; Make sure first line is indented (at least) to left margin... (if (or (memq justify '(right center)) (< (current-indentation) (current-left-margin))) - (indent-to-left-margin)) + (fill-indent-to-left-margin)) ;; Delete the fill-prefix from every line. (fill-delete-prefix from to fill-prefix) (setq from (point))