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

76093858 · Mark Oteiza · 2cf2b199 · 76093858
Commit 76093858 authored Sep 07, 2015 by Mark Oteiza
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/mpc.el lisp/mpc.el +4 -1

No files found.
--- 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)