diff options
| author | foo <foo> | 2006-05-24 20:00:00 +0000 |
|---|---|---|
| committer | foo <> | 2006-05-24 20:00:00 +0000 |
| commit | c08efad3544fa9f924dc2d16cd26fb67f5f09804 (patch) | |
| tree | ce920ccd9040b04e064b573f709eeced7d7d424d | |
| parent | a665f6aa63b12dd12e0156a8a799dd3a59b39e5b (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.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 |