diff options
| -rw-r--r-- | emms-playlist-mode.el | 9 |
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 |