(defun decomment (buffer)
  "バッファ内のコメント文を削除します"
  (interactive "bdecomment ")
  (with-current-buffer buffer
	(save-excursion
	  (goto-char (point-min))
	  (comment-kill (point-max)))))