summaryrefslogtreecommitdiff
path: root/nrepl-client.el
diff options
context:
space:
mode:
authorTakashi AOKI <federkasten@me.com>2013-12-02 13:32:11 +0900
committerBozhidar Batsov <bozhidar@tradeo.com>2013-12-10 17:26:32 +0200
commit13f4abe267d2b6da6b537eb925c8e7444f148d2e (patch)
treeca680c4c58de91efa90dd6a7aa81683f77d3d4bd /nrepl-client.el
parentaa4cc0cf3ad94a128683bc3c1bdc446f72eced09 (diff)
Improve tramp support
Diffstat (limited to 'nrepl-client.el')
-rw-r--r--nrepl-client.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/nrepl-client.el b/nrepl-client.el
index 27e4d93a..a3a89a5f 100644
--- a/nrepl-client.el
+++ b/nrepl-client.el
@@ -419,6 +419,10 @@ This is bound for the duration of the handling of that message")
"A list of connections.")
+(defun nrepl-current-host ()
+ (if (and (stringp buffer-file-name)
+ (file-remote-p buffer-file-name))
+ tramp-current-host nrepl-host))
(defun nrepl-make-connection-buffer ()
"Create an nREPL connection buffer."