From: Mark Oteiza <mvoteiza@udel.edu>
Date: Wed, 18 Nov 2015 18:42:40 +0000 (-0500)
Subject: Fix issue where a new tempfile was created every refresh
X-Git-Tag: emacs-26.0.90~2938
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b007bca9004faad67b4ba3dfcb9cf7538ac299c;p=emacs.git

Fix issue where a new tempfile was created every refresh

* lisp/mpc.el (mpc-format): Leave dir as relative path
---

diff --git a/lisp/mpc.el b/lisp/mpc.el
index af1aac93f14..c40c09cc2ef 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1026,12 +1026,11 @@ If PLAYLIST is t or nil or missing, use the main playlist."
                                                (substring time (match-end 0))
                                              time)))))
                     (`Cover
-                     (let ((dir (file-name-directory
-                                 (mpc-file-local-copy (cdr (assq 'file info))))))
+                     (let ((dir (file-name-directory (cdr (assq 'file info)))))
                        ;; (debug)
                        (push `(equal ',dir (file-name-directory (cdr (assq 'file info)))) pred)
                        (if-let ((covers '(".folder.png" "cover.jpg" "folder.jpg"))
-                                (cover (cl-loop for file in (directory-files dir)
+                                (cover (cl-loop for file in (directory-files (mpc-file-local-copy dir))
                                                 if (member (downcase file) covers)
                                                 return (concat dir file)))
                                 (file (with-demoted-errors "MPC: %s"