[Emacs-diffs] master 7609385 3/3: lisp/mpc.el (mpc--proc-connect): use file-name-absolute-p

[Mark Oteiza]

branch: master
commit 76093858d236b2134dd5db214d22a2b208c2992c
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    lisp/mpc.el (mpc--proc-connect): use file-name-absolute-p
---
 lisp/mpc.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/lisp/mpc.el b/lisp/mpc.el
index 3600b08..bc7d473 100644
--- 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)