aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2015-09-07 17:57:46 -0400
committerMark Oteiza2015-09-10 13:41:09 -0400
commit2cf2b19985c4b3989a6ab9acfb247e2dc823669d (patch)
tree17c4117d786ab12c294c193d1d7896fdf6a7bda5
parent2a79268725c2d5602e9bc4a512bee7510bfbfa18 (diff)
downloademacs-2cf2b19985c4b3989a6ab9acfb247e2dc823669d.tar.gz
emacs-2cf2b19985c4b3989a6ab9acfb247e2dc823669d.zip
lisp/mpc.el (mpc-file-local-copy): check for absolute path
-rw-r--r--lisp/mpc.el3
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")