Commit 30d653c4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(justify-current-line): Inherit props when inserting spaces.

parent 3f254763
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment