aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emms-playlist-mode.el9
1 files changed, 8 insertions, 1 deletions
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