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

... since it might come straight from the memoizing table.
2015-10-13 09:48:16 -04:00 · 2015-10-13 09:48:16 -04:00 · 8610bd16e9
commit 8610bd16e9
parent 4466c724ac
1 changed files with 1 additions and 1 deletions
--- 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))