copy-region-as-fill in Emacs 24

gistfile1.el

;; copy region as `fill-region`ed even
;; in longlines-mode or visual-line-mode.
;;
;; thanks to @y0ngbin for this idea.

(global-set-key [?\C-x ?\M-w] 'copy-region-as-fill)

(defun copy-region-as-fill (beg end)
  (interactive "r")
  (when (region-active-p)
    (kill-ring-save beg end)
    (with-temp-buffer
      (yank)
      (mark-whole-buffer)
      (fill-region (region-beginning) (region-end))
      (mark-whole-buffer)
      (kill-ring-save (region-beginning) (region-end)))))