[elpa] externals/emms 6e36f3e1cc: * emms-playlist-mode.el: take ...kill-whole-line-p into account

[ELPA Syncer]

branch: externals/emms
commit 6e36f3e1cc3ef6a56bbdbacd2567b2afe70255e3
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * emms-playlist-mode.el: take ...kill-whole-line-p into account
---
 emms-playlist-mode.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el
index 40bd200eef..b0a10e986a 100644
--- a/emms-playlist-mode.el
+++ b/emms-playlist-mode.el
@@ -433,8 +433,7 @@ If NUM is 0 or a positive number, shift the track at point 
down
 one line. Otherwise shift the track up by one line."
   (emms-playlist-ensure-playlist-buffer)
   (let ((track (emms-playlist-track-at (point)))
-       (dir (if (>= num 0) 1 -1))
-       shift)
+       (dir (if (>= num 0) 1 -1)))
     (when (not track)
       (error "no track at point."))
     (when (and (< num 0)
@@ -450,8 +449,9 @@ one line. Otherwise shift the track up by one line."
          (forward-line (if (= dir 1) 1 -1)))
       (let ((shift (emms-playlist-track-at (point))))
        (emms-playlist-mode-kill-track)
-       (emms-with-inhibit-read-only-t
-        (kill-line))
+       (when (not emms-playlist-mode-kill-whole-line-p)
+         (emms-with-inhibit-read-only-t
+          (kill-line)))
        (forward-line (* dir -1))
        (emms-playlist-mode-insert-track shift)
        (when (= dir -1) (forward-line -2))))))