>>821
あ、delete-regionすればいいですね。ありがとうございます。
とりあえず以下のようにして目的を達しました（何でそんな変な設定って感じかもしれませんが）
"Mark set"が入るのが少し鬱陶しいです

(defun kill-line-without-copy ()
(interactive)
(set-mark-command nil)
(move-end-of-line 1)
(delete-region (region-beginning) (region-end))
)
(global-unset-key "\C-k")
(global-set-key "\C-k" 'kill-line-without-copy)
(global-set-key "\C-q\C-k" 'kill-line)