lisp/mpc.el (mpc--proc-connect): use file-name-absolute-p

diff --git a/lisp/mpc.el b/lisp/mpc.el
index 3600b081f9b4c7f55a029213d080cd53aa80d14a..bc7d4733ee84be8258e317bdd93d26944623465a 100644 (file)
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -268,7 +268,10 @@ defaults to 6600 and HOST defaults to localhost."
                 (if (string-match "[^[:digit:]]" v)
                     (string-to-number v)
                   v)))))
-    (when (string-prefix-p "/" host)    ;FIXME: Use file-name-absolute-p?
+    (when (file-name-absolute-p host)
+      ;; Expand file name because `file-name-absolute-p'
+      ;; considers paths beginning with "~" as absolute
+      (setq host (expand-file-name host))
       (setq local t))
 
     (mpc--debug "Connecting to %s:%s..." host port)