emacs - 領域操作の結果を kill リングにコピーする

Question

強調表示された領域の改行を削除する Emacs の次のコードがあります。

(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))))

この関数を拡張して、結果を kill リングに自動的にコピーする (kill しない) ようにします。これどうやってするの？