[elpa] externals/listen ecf0264641 09/12: Fix: (listen-queue-transpose-forward) Keep point on track

[ELPA Syncer]

branch: externals/listen
commit ecf026464198fbe8cce7715bc0dc5764754db9ce
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (listen-queue-transpose-forward) Keep point on track
---
 README.org      | 3 +++
 listen-queue.el | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index d4d911140c..ff5d6e3a53 100644
--- a/README.org
+++ b/README.org
@@ -72,6 +72,9 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 + Read track durations with ~ffprobe~ and show in library and queue views.
 + Bound key ~?~ to open the ~listen~ Transient menu in library and queue views.
 
+*Fixes*
++ Transposing a track in a queue keeps point on the track.
+
 ** v0.3
 
 *Additions*
diff --git a/listen-queue.el b/listen-queue.el
index b5577e4176..83350e5c0a 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -171,7 +171,8 @@ If BACKWARDP, move it backward."
          (next-track (seq-elt (listen-queue-tracks queue) next-position)))
     (setf (seq-elt (listen-queue-tracks queue) next-position) track
           (seq-elt (listen-queue-tracks queue) position) next-track)
-    (listen-queue--update-buffer queue)))
+    (listen-queue--update-buffer queue)
+    (vtable-goto-object track)))
 
 (cl-defun listen-queue-transpose-backward (track queue)
   "Transpose TRACK backward in QUEUE."