diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2015-11-18 13:42:40 -0500 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2015-11-18 13:42:40 -0500 |
| commit | 0b007bca9004faad67b4ba3dfcb9cf7538ac299c (patch) | |
| tree | c56d59ea406a697d707e5e824540e1ccb881bf18 | |
| parent | 0b42c33b1a79ac25304687b10577592051ae185b (diff) | |
| download | emacs-0b007bca9004faad67b4ba3dfcb9cf7538ac299c.tar.gz emacs-0b007bca9004faad67b4ba3dfcb9cf7538ac299c.tar.bz2 emacs-0b007bca9004faad67b4ba3dfcb9cf7538ac299c.zip | |
Fix issue where a new tempfile was created every refresh
* lisp/mpc.el (mpc-format): Leave dir as relative path
| -rw-r--r-- | lisp/mpc.el | 5 |
1 files changed, 2 insertions, 3 deletions
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" |