[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 7609385 3/3: lisp/mpc.el (mpc--proc-connect): use f
From: |
Mark Oteiza |
Subject: |
[Emacs-diffs] master 7609385 3/3: lisp/mpc.el (mpc--proc-connect): use file-name-absolute-p |
Date: |
Thu, 10 Sep 2015 17:41:20 +0000 |
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)