From: Stefan Bund <stefan.bund@traveltainment.de>
Date: Wed, 11 Oct 2017 16:09:41 +0000 (+0200)
Subject: x2go: workaround for ssh agent bug
X-Git-Url: http://g0dil.de/git?a=commitdiff_plain;h=a95258bb6a7a2da895b116a83b3fac7bd33b1306;p=emacs-init.git

x2go: workaround for ssh agent bug
---

diff --git a/setup/x2go-hack.el b/setup/x2go-hack.el
new file mode 100644
index 0000000..56ca33a
--- /dev/null
+++ b/setup/x2go-hack.el
@@ -0,0 +1,8 @@
+(defvar ssh-agent-auth-sock-link "~/.ssh/ssh_auth_sock")
+
+(defun g0dil-x2go-fix-ssh-agent ()
+  (let ((agent (getenv "SSH_AUTH_SOCK")))
+    (if (string-match "^.*/\.x2go/.*/ssh-agent.PID" agent)
+        (setenv "SSH_AUTH_SOCK" (expand-file-name ssh-agent-auth-sock-link)))))
+
+(g0dil-x2go-fix-ssh-agent)