my-funcs.el

;; 選択範囲をコメントアウト&その後ろにコメントアウトした物をペースト
;; とりあえずのもの
(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))
    (move-end-of-line 1)
    (insert "\n")
    (yank))
    (next-line)
    (move-beginning-of-line 1)
)