Use relative file names when updating playlist
This is the documented behavior, the previous usage of absolute file names was a mistake.master
parent
1df794ebf2
commit
f982f37d69
|
@ -201,7 +201,18 @@ OVERWRITE is non-nil."
|
|||
;; the current playlist, as otherwise `emms-playlist-save' will
|
||||
;; ask for confirmation.
|
||||
(emms-playlist-save 'm3u file)))
|
||||
(kill-buffer emms-temp-playlist-buffer)))))))
|
||||
(kill-buffer emms-temp-playlist-buffer)
|
||||
|
||||
;; Convert absolute file names to relative file names
|
||||
(with-current-buffer (or (find-buffer-visiting file)
|
||||
(find-file-noselect file))
|
||||
;; Make sure the current buffer is up to date with the file on
|
||||
;; disk, in case it had been visited before
|
||||
(revert-buffer 'ignore-auto 'noconfirm)
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "^.+$" nil 'noerror)
|
||||
(replace-match (file-relative-name (match-string 0))))
|
||||
(save-buffer))))))))
|
||||
|
||||
(defun db/update-playlist-files ()
|
||||
"Update personal playlist files."
|
||||
|
|
Loading…
Reference in New Issue