From 30d653c4016b637ac3bf47ccf71278568f3754c0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Sep 1994 20:46:35 +0000 Subject: [PATCH] (justify-current-line): Inherit props when inserting spaces. --- lisp/textmodes/fill.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 36cb5c6b52..73ca3ff241 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -295,7 +295,7 @@ space does not end a sentence, so don't break a line there." (goto-char beg) (while (re-search-forward "[.?!][])\"']*\n" nil t) (forward-char -1) - (insert ? )) + (insert-and-inherit ? )) (goto-char (point-max)) ;; Note that the buffer bounds start after the indentation, ;; so the columns counted by INDENT don't appear in (current-column). @@ -310,10 +310,11 @@ space does not end a sentence, so don't break a line there." (search-backward " "))) (skip-chars-backward " ") (setq nmove (1- nmove)))) - (insert " ") + (insert-and-inherit " ") (skip-chars-backward " ") (setq ncols (1- ncols))))))) nil) + (defun fill-nonuniform-paragraphs (min max &optional justifyp mailp) "Fill paragraphs within the region, allowing varying indentation within each. -- 2.20.1