diff options
| -rw-r--r-- | lisp/mpc.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |