summaryrefslogtreecommitdiff
path: root/nrepl-client.el
diff options
context:
space:
mode:
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."