* lisp/mpc.el (mpc-songs-refresh): Don't side-effect `active'

[gnu-emacs] / lisp / mpc.el

diff --git a/lisp/mpc.el b/lisp/mpc.el
index a5fc376eaea07ddf5e5ec9fdeff56c6626946da4..21002ec5081d894f82d5b792558e766fadc00681 100644 (file)
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1960,7 +1960,7 @@ This is used so that they can be compared with `eq', which is needed for
             ;; I punt on it and just use file-name sorting, which does the
             ;; right thing if your library is properly arranged.
             (dolist (song (if dontsort active
-                            (sort active
+                            (sort (copy-sequence active)
                                   (lambda (song1 song2)
                                     (let ((cmp (mpc-compare-strings
                                                 (cdr (assq 'file song1))