aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfoo <foo>2006-05-24 20:00:00 +0000
committerfoo <>2006-05-24 20:00:00 +0000
commitc08efad3544fa9f924dc2d16cd26fb67f5f09804 (patch)
treece920ccd9040b04e064b573f709eeced7d7d424d
parenta665f6aa63b12dd12e0156a8a799dd3a59b39e5b (diff)
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
-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