]> git.eshelyaron.com Git - emacs.git/commitdiff
lisp/mpc.el (mpc-file-local-copy): check for absolute path
authorMark Oteiza <mvoteiza@udel.edu>
Mon, 7 Sep 2015 21:57:46 +0000 (17:57 -0400)
committerMark Oteiza <mvoteiza@udel.edu>
Thu, 10 Sep 2015 17:41:09 +0000 (13:41 -0400)
lisp/mpc.el

index 205c94b496552ea28fcfa24960a251cc3725ee96..3600b081f9b4c7f55a029213d080cd53aa80d14a 100644 (file)
@@ -909,7 +909,8 @@ If PLAYLIST is t or nil or missing, use the main playlist."
 (defun mpc-file-local-copy (file)
   ;; Try to set mpc-mpd-music-directory.
   (when (and (null mpc-mpd-music-directory)
-             (string-match "\\`localhost" mpc-host))
+             (or (string-match "\\`localhost" mpc-host)
+                 (file-name-absolute-p mpc-host)))
     (let ((files `(,(let ((xdg (getenv "XDG_CONFIG_HOME")))
                       (concat (if (and xdg (file-name-absolute-p xdg))
                                   xdg "~/.config")