🚀 go-pugleaf

In GNU Emacs 19.27.4 (sparc-sun-sunos4.1.3, X toolkit) of Thu Sep 22 1994 on mink.cs.rochester.edu

justify-current-line inserts spaces without inheriting the text
properties of the surrounding text.

Test case: type a few lines of text in the *scratch* buffer of an
emacs -q.  Set the 'face text-property of it to 'underline.  C-u M-q.
There will be breaks in the underlining.

Here's a change log entry and patch.

Fri Sep 23 10:08:09 1994  Boris Goldowsky  <boris@cs.rochester.edu>

	* fill.el (justify-current-line): Do insertion with text-prop
	inheritance. 

*** fill.el.orig	Fri Sep 23 10:03:55 1994
--- fill.el	Fri Sep 23 10:04:34 1994
***************
*** 295,301 ****
        (goto-char beg)
        (while (re-search-forward "[.?!][])\"']*\n" nil t)
  	(forward-char -1)
! 	(insert ? ))
        (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).
--- 295,301 ----
        (goto-char beg)
        (while (re-search-forward "[.?!][])\"']*\n" nil t)
  	(forward-char -1)
! 	(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,319 ****
  		     (search-backward " ")))
  		(skip-chars-backward " ")
  		(setq nmove (1- nmove))))
! 	    (insert " ")
  	    (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.
--- 310,320 ----
  		     (search-backward " ")))
  		(skip-chars-backward " ")
  		(setq nmove (1- nmove))))
! 	    (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.