better kill line

[Emanuel Berg]

What do you think of this?

I mean both the idea, and the implementation of the idea.

;;; kill lines
(setq kill-whole-line t)
(defun kill-line-if-not-empty-then-delete ()
  "If there is text to the right of point on the same line, kill it.
If the current line is blank, and the following line is non-blank,
delete the blank line.
If the current line is blank, *and* part of a block of blank lines,
delete all blank lines except one.
The purpose is to be able to remove blank lines fast,
and without pushing them to the kill ring."
  (interactive)
  (if (looking-at "[ \t]*$")
      (delete-blank-lines)
    (kill-visual-line) ))
(define-key (current-global-map) (kbd "C-k")
  'kill-line-if-not-empty-then-delete)
-- 
Emanuel Berg - programmer (hire me! CV below)
computer projects: http://user.it.uu.se/~embe8573
internet activity: http://home.student.uu.se/embe8573