Copy result of a region operation to kill ring

Question

I have the following code in Emacs that removes line breaks in a highlighted region:

(defun remove-newlines-in-region ()
  "Removes all newlines in the region."
  (interactive)
  (save-restriction
    (narrow-to-region (point) (mark))
    (goto-char (point-min))
    (while (search-forward "\n" nil t) (replace-match "" nil t))))

I would to expand this function to also automatically copy (not kill) the result to the kill ring. How can I do this?

Answer 1

(kill-ring-save (point-min) (point-max))