diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2015-09-07 18:01:00 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2015-09-10 13:41:09 -0400 |
| commit | 76093858d236b2134dd5db214d22a2b208c2992c (patch) | |
| tree | ecd83bf12dfd33def5439ac96fda9dcc308be831 /lisp/mpc.el | |
| parent | 2cf2b19985c4b3989a6ab9acfb247e2dc823669d (diff) | |
lisp/mpc.el (mpc--proc-connect): use file-name-absolute-p
Diffstat (limited to 'lisp/mpc.el')
| -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 3600b081f9..bc7d4733ee 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) |