From c08efad3544fa9f924dc2d16cd26fb67f5f09804 Mon Sep 17 00:00:00 2001
From: foo <foo>
Date: Wed, 24 May 2006 20:00:00 +0000
Subject: emms-playlist-mode: Make "d" kill the entire line.  This seems to be
 a good compromise of those who use C-k and those who want more standard
 object-killing behavior.

darcs-hash:20060524200008-0beec-44d42e025c9a7a95d740dc87f75aa7a8e3ce0a54.gz
---
 emms-playlist-mode.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el
index 88f36c7..3f673cb 100644
--- a/emms-playlist-mode.el
+++ b/emms-playlist-mode.el
@@ -118,7 +118,7 @@ composed of other playlists."
     (define-key map (kbd "M-y") 'emms-playlist-mode-yank-pop)
     (define-key map (kbd "M-<") 'emms-playlist-mode-first)
     (define-key map (kbd "M->") 'emms-playlist-mode-last)
-    (define-key map (kbd "d") 'emms-playlist-mode-kill-track)
+    (define-key map (kbd "d") 'emms-playlist-mode-kill-entire-track)
     (define-key map (kbd "n") 'emms-next)
     (define-key map (kbd "p") 'emms-previous)
     (define-key map (kbd "s") 'emms-stop)
@@ -278,6 +278,13 @@ function switches back to the remembered buffer."
       nil
     (eq p (cadr (sort (list a b p) #'<=)))))
 
+;; d
+(defun emms-playlist-mode-kill-entire-track ()
+  "Kill track at point, including newline."
+  (interactive)
+  (let ((kill-whole-line t))
+    (emms-playlist-mode-kill-track)))
+
 ;; C-k
 ;;
 ;; Currently this kills as regular GNU/Emacs would and not like a
-- 
cgit v1.2.3