diff options
| author | Mark Oteiza | 2015-09-07 17:57:46 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2015-09-10 13:41:09 -0400 |
| commit | 2cf2b19985c4b3989a6ab9acfb247e2dc823669d (patch) | |
| tree | 17c4117d786ab12c294c193d1d7896fdf6a7bda5 | |
| parent | 2a79268725c2d5602e9bc4a512bee7510bfbfa18 (diff) | |
| download | emacs-2cf2b19985c4b3989a6ab9acfb247e2dc823669d.tar.gz emacs-2cf2b19985c4b3989a6ab9acfb247e2dc823669d.zip | |
lisp/mpc.el (mpc-file-local-copy): check for absolute path
| -rw-r--r-- | lisp/mpc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mpc.el b/lisp/mpc.el index 205c94b4965..3600b081f9b 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el | |||
| @@ -909,7 +909,8 @@ If PLAYLIST is t or nil or missing, use the main playlist." | |||
| 909 | (defun mpc-file-local-copy (file) | 909 | (defun mpc-file-local-copy (file) |
| 910 | ;; Try to set mpc-mpd-music-directory. | 910 | ;; Try to set mpc-mpd-music-directory. |
| 911 | (when (and (null mpc-mpd-music-directory) | 911 | (when (and (null mpc-mpd-music-directory) |
| 912 | (string-match "\\`localhost" mpc-host)) | 912 | (or (string-match "\\`localhost" mpc-host) |
| 913 | (file-name-absolute-p mpc-host))) | ||
| 913 | (let ((files `(,(let ((xdg (getenv "XDG_CONFIG_HOME"))) | 914 | (let ((files `(,(let ((xdg (getenv "XDG_CONFIG_HOME"))) |
| 914 | (concat (if (and xdg (file-name-absolute-p xdg)) | 915 | (concat (if (and xdg (file-name-absolute-p xdg)) |
| 915 | xdg "~/.config") | 916 | xdg "~/.config") |