[emacs] fix emms overlay

1 files changed, 11 insertions, 3 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el
index c2d2eaa..cdd9567 100644
--- a/emacs/.emacs.d/lisp/my/my-emms.el
+++ b/emacs/.emacs.d/lisp/my/my-emms.el
@@ -464,21 +464,29 @@ under /zzz-seren/."
               (min end-ln maybe-group-end))))
       (cons group-start group-end))))
 
+(defvar-local my-emms-playlist-group-start-overlay nil)
+(defvar-local my-emms-playlist-group-end-overlay nil)
+
 (defun my-emms-playlist-mark-bounds (group-end)
   "Mark bounds of the current track group.
 
 An up arrow at the first played in the current group, and a down
 arrow at the end of the track group."
-  (remove-overlays)
+  (when my-emms-playlist-group-start-overlay
+    (delete-overlay my-emms-playlist-group-start-overlay))
+  (when my-emms-playlist-group-start-overlay
+    (delete-overlay my-emms-playlist-group-end-overlay))
+  (setq my-emms-playlist-group-start-overlay (make-overlay (point) (point)))
   (overlay-put
-   (make-overlay (point) (point))
+   my-emms-playlist-group-start-overlay
    'before-string (propertize
                    "x" 'display
                    `(left-fringe up-arrow emms-playlist-selected-face)))
   (save-excursion
     (goto-line (1- group-end))
+    (setq my-emms-playlist-group-end-overlay (make-overlay (point) (point)))
     (overlay-put
-     (make-overlay (point) (point))
+     my-emms-playlist-group-end-overlay
      'before-string (propertize
                      "x" 'display
                      `(left-fringe down-arrow emms-playlist-selected-face)))))