From 76093858d236b2134dd5db214d22a2b208c2992c Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Mon, 7 Sep 2015 18:01:00 -0400 Subject: [PATCH] lisp/mpc.el (mpc--proc-connect): use file-name-absolute-p --- lisp/mpc.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mpc.el b/lisp/mpc.el index 3600b081f9b..bc7d4733ee8 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) -- 2.39.2