;; 選択範囲をコメントアウト&その後ろにコメントアウトした物をペースト
(defun comment-out-and-paste ()
  (interactive)
  (save-excursion
    (kill-ring-save (region-beginning) (region-end))
    (comment-region (region-beginning) (region-end))
    (goto-char (region-end))
    (insert "\n\n")
    (yank)
  ))