mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Backport: Fix issue where a new tempfile was created every refresh

Browse source 
* lisp/mpc.el (mpc-format): Leave dir as relative path
This commit is contained in:
Mark Oteiza 2015-11-18 13:42:40 -05:00
parent 3c407d2919
commit e6b1818f87
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mpc.el
View file

@ -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"